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

[abdelali91]

السلام عليكم
كيف أجعل البرنامج يشتغل عند بدء تشغيل ويندوز ويظهر قرب الساعة مثل برنامج كاسبرسكي وغيره من البرامج

[لؤي]

ممكن هذا الموضوع يساعدك: [URL="http://www.delphi4arab.net/forum/showthread.php?tid=952"]
مكون لعمل البرنامج بجنب الساعة... trayicon[/URL]

او هذا

[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; 


بالتوفيق

[mahboub2011]

كود :

var Reg: TRegistry; TheKey: string; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; TheKey := 'Software\Microsoft\Windows\CurrentVersion\Run'; if RunOnce then TheKey := TheKey + 'Once'; // Open key, or create it if it doesn't exist Reg.OpenKey(TheKey, True); Reg.WriteString(ApTitle, ApPathFile); Reg.CloseKey; Reg.Free; end; ................................. Examples: RunOnWinStart('TestProgram', 'c:\test\testprog.exe', True); RunOnWinStart('Calculator', 'calc.exe', False);