Hallo
Ich bin grad dabei mein erstes Programm zu schreiben, darum bitte keine "Fremdwörter"
Also, mein Programm soll sich automatisch in die Registry als Autostart eintragen. Aus einem anderen Thread hier im Forum hab ich diesen Sourcecode für die Registry Eintragung einfach genommen.
Desweitere soll mein Programm nach 60 Minunten den PC automatisch herunterfahren (Gelöst per .BAT datei mit "Shutdown -s") und schließlich soll mein Programm sich auch noch von selbst beenden.
Hier ist erstmal der Source Code meines Programms:
Delphi-Quellcode:
unit MeinProgrammU;
interface
uses
Windows, Messages, Registry, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Panel1: TPanel;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('
Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.WriteString('
EigenesProgramm', ParamStr(0));
Reg.CloseKey;
finally
Reg.Free;
Sleep (3600000);
WinExec('
Shutdown.bat', SW_SHOWNORMAL);
close;
end;
end;
end.
Nun gibt es folgende Probleme:
1. Das Programm beendent sich nicht.
2. Nach dem Neustart funktioniert meiner ansicht nach alles nur der PC wird nicht herunter gefahren.
Bitte beachten (und genau das finde ich das komische), dass bei ersten mal öffnen, das Programm seine Funktionen alles ausführt, nur beim nächsten mal, wo es über den Autostart gestartet wird funktioniert das herunterfahren nicht mehr =(
Hoffe ihr könnt mir helfen. Vielen Dank