+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أجعل البرنامج يشتغل عند بدى تشغيل ويندوز (/showthread.php?tid=3532)
كيف أجعل البرنامج يشتغل عند بدى تشغيل ويندوز - abdelali91 - 25-10-2011
السلام عليكم
كيف أجعل البرنامج يشتغل عند بدء تشغيل ويندوز ويظهر قرب الساعة مثل برنامج كاسبرسكي وغيره من البرامج
كيف أجعل البرنامج يشتغل عند بدى تشغيل ويندوز - لؤي - 25-10-2011
ممكن هذا الموضوع يساعدك: [URL="http://www.delphi4arab.net/forum/showthread.php?tid=952"]
مكون لعمل البرنامج بجنب الساعة... trayicon[/URL]
او هذا
كيف أجعل البرنامج يشتغل عند بدى تشغيل ويندوز - King SofT - 25-10-2011
وعليكم السلام اخي
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 - 28-10-2011
كود :
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);