so hier mal mein code der leider noch nicht funzt =(
Code:
uses Registry;
procedure TForm1.FormCreate(Sender: TObject);
var regist: TRegistry;
begin
regist := TRegistry.Create;
try
regist.RootKey:=HKEY_LOCAL_MACHINE;
regist.OpenKey(SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths', true);
Form1.Left := regist.ReadInteger('Left');
Form1.Top := regist.ReadInteger('Top');
finally
regist.free;
end;
end;
hab den code einfach dann als procedure in eine listebox gesetzt doch leider wurde nichts aufgelistet =(
Was mach ich falsch??
Eviator