Leider immernoch die Selbe Fehlermeldung bei einer anderen "höheren" Adresse...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var regist: TRegistry; n:string; size:integer;
begin
regist:=TRegistry.Create;
try
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\Microsoft\Windows\Shell\Bags\1\Desktop',false);
size := regist.GetDataSize('ItemPos1280x1024(1)');
Setlength(n, size);
regist.ReadBinaryData('ItemPos1280x1024(1)', n, size);
Edit1.Text:=n;
Memo1.Text:=n;
finally
regist.Free;
end;
end;
Ich habe mir einmal size ausgeben lassen, es kam die Zahl 1888 heraus.
Was kann ich dagegen tun?
MfG
Darkface