Jak odczytać wartość binarną z rejestru i dodać ją do Memo ?--"Wniosek to punkt, w którym nie masz już siły dalej myśleć"
----- MCkawa -----
Delphi 6
Jak odczytać wartość binarną z rejestru i dodać ją do Memo ?--"Wniosek to punkt, w którym nie masz już siły dalej myśleć"
----- MCkawa -----
Delphi 6
TRegistry.ReadBinaryData(const Name: String; var Buffer; BufSize: Integer);
Dalej też tłumaczyć? :-) --Pomoc i analiza źródeł wszystko czego potrzebujesz ( no i może odrobinę logicznego myślenia)
A masz gotowca. Ulże ci w pracy. Tylko dopasuj do własnych danych.
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
Buf:array [0..255]of Char; //jeżeli dane to tekst, możesz równie dobrze każdy inny typ danych tylko potem musisz zmienić odpowiednio na string aby można było dodać do memo
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Applets\Paint\View',
True)
then begin
Reg.ReadBinaryData('WindowPlacement',Buf,sizeof(Buf));
Memo1.Lines.Add(StrPas(Buf));
end;
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
end;
--Pomoc i analiza źródeł wszystko czego potrzebujesz ( no i może odrobinę logicznego myślenia)
Wielkie dzieki !!! {brawo} {browar}
Ale jeszcze jeden problem...
Wyświetla mi się coś takiego: t_šŔ˝Đ¤
Jak zrobić żeby wyświetlało się w hex np: 74 DB 0C E7 12 E8
hmm... --"Wniosek to punkt, w którym nie masz już siły dalej myśleć"
----- MCkawa -----
Delphi 6
MCkawa napisał:
Wielkie dzieki !!! {brawo} {browar}
>
>Ale jeszcze jeden problem...
>
>Wyświetla mi się coś takiego: t_šŔ˝Đ¤
>Jak zrobić żeby wyświetlało się w hex np: 74 DB 0C E7 12 E8
> hmm...
>
Uzyj IntToHex--Pawel {Delphi6 }
Po pierwsze: naciśnij F1
OK. THX {browar} --"Wniosek to punkt, w którym nie masz już siły dalej myśleć"
----- MCkawa -----
Delphi 6