Einzelnen Beitrag anzeigen

Darkface

Registriert seit: 18. Apr 2008
89 Beiträge
 
Delphi XE Professional
 
#9

Re: Registry ReadBinaryData Problem

  Alt 10. Aug 2008, 20:56
ahja? ^^ anders gefragt halt ^^... wie kann ich das n hier in "reinschrift" lesen

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var regist: TRegistry; n:string; size:integer;
begin
  regist:=TRegistry.Create;
  try
    regist.RootKey:=HKEY_CURRENT_USER;
      try
      regist.OpenKey('Software\Microsoft\Windows\Shell\Bags\1\Desktop',false);
      size := regist.GetDataSize('ItemPos1280x1024(1)');
      Setlength(n, size);
      regist.ReadBinaryData('ItemPos1280x1024(1)', n[1], size);
      Edit1.Text:=n;
      Memo1.Text:=n;
      regist.CloseKey;
      except
      regist.CloseKey;
      end
  finally
  regist.Free;
  end;
end;
Danke &
MfG
Darkface
Alexander
  Mit Zitat antworten Zitat