Hallo,
möchte was in die Registry schreiben, was soweit auch funktioniert.
Nur für ca. 30sec. kommt immer die Meldung in der Form1 (Keine Rückmeldung) ???
Warum? Bin als Administrator angemeldet!
Delphi-Quellcode:
procedure TForm1.Reg1Click(Sender: TObject);
var
reg : TRegistry;
s : String;
begin
if InputQuery('Caption', #31 + 'Bitte geben Sie das Passwort ein', s ) then
begin
if s = 'test' then begin
reg := tregistry.create;
with reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
WriteString('LogUser', paramstr(0));
CloseKey;
free;
end;
end;
end;
end;