Kann mir mal jmd erklären was sowas soll?
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True)
then Reg.WriteString('SysUtils','"' + ParamStr(0) + '"');
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
start_time := 10;
record_time := 10;
end;
In meinen Augen ist sowas ein Frechheit...
Ich hab darauf hin das Programm gelöscht ohne es mir weiter anzusehen...
Da mir allein diese Zeilen ausreichen um den ernsten und seriösen Gedanken dieses Projektes arg in Frage zustellen.