hej!
Mam takie cuś, ale nie działa tak jak zakładałem że podziałać powinno ;) Miało się wpisać do SOFTWAREMicrosoftWindowsCurrentVersionRun a wpisuje się gdzie indziej... Gdzie tkwi problem?
procedure TForm1.Button1Click(Sender: TObject);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun', True);
Reg.WriteString('sms', 'application=C:\sms.exe');
finally
Reg.Free;
end;
end;
hmm ?