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