كيف أجعل البرنامج يشتغل عند بدى تشغيل ويندوز

[King SofT]

وعليكم السلام اخي

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
var
 reg: TRegistry;
begin
 Reg := nil;
 try
   reg := TRegistry.Create;
   reg.RootKey := HKEY_LOCAL_MACHINE;
   reg.LazyWrite := false;
   reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
   reg.WriteString('Default',ExtractFilePath(Application.ExeName)+Application.ExeName);
   reg.CloseKey;
   reg.free;
 except
   if Assigned(Reg) then Reg.Free;

 end;
end; 


بالتوفيق