rejestr, wartość binarna

0

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

0

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)

0

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)

0

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

0

MCkawa napisał:
Wielkie dzieki !!! {brawo} {browar}
&gt
&gtAle jeszcze jeden problem...
&gt
&gtWyświetla mi się coś takiego: t_šŔ˝Đ¤
&gtJak zrobić żeby wyświetlało się w hex np: 74 DB 0C E7 12 E8
&gt hmm...
&gt

Uzyj IntToHex--Pawel {Delphi6 }

Po pierwsze: naciśnij F1

0

OK. THX {browar} --"Wniosek to punkt, w którym nie masz już siły dalej myśleć"

----- MCkawa -----
Delphi 6

1 użytkowników online, w tym zalogowanych: 0, gości: 1