25-10-2011, 10:32 AM
25-10-2011, 11:38 AM
ممكن هذا الموضوع يساعدك: [URL="http://www.delphi4arab.net/forum/showthread.php?tid=952"]
مكون لعمل البرنامج بجنب الساعة... trayicon[/URL]
او هذا
مكون لعمل البرنامج بجنب الساعة... trayicon[/URL]
او هذا
25-10-2011, 06:59 PM
وعليكم السلام اخي
بالتوفيق
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;
بالتوفيق
28-10-2011, 09:59 PM
كود :
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);