اترددت قبل ما حط الموضوع قلت ممكن تعرفونه كلكم .. لكن ممكن فيه شي جديد عليكم تابعو .......
uses
Registry, {For Win32}
IniFiles; {For Win 6}{$IFNDEF WIN32}
const MAX_PATH = 44;
{$ENDIF}{For Win32}
procedure TForm .Button Click(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',
false);
reg.WriteString('My App', Application.ExeName);
reg.CloseKey;
reg.free;
end;
{For Win 6}
procedure TForm .Button2Click(Sender: TObject);
var
WinIni : TIniFile;
WinIniFileName : array[0..MAX_PATH] of char;
s : string;
begin
GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName));
StrCat(WinIniFileName, 'win.ini');
WinIni := TIniFile.Create(WinIniFileName);
s := WinIni.ReadString('windows',
'run',
'');
if s = '' then
s := Application.ExeName else
s := s + ';' + Application.ExeName;
WinIni.WriteString('windows',
'run',
s);
WinIni.Free;
end;هذا عشان كل اصدارات الويندوز لاحظ كويس ..
وهيك بتخلي برنامجك ياقلع مع الجهاز .. بس بأقلع وين بالرن كبرنامج
وطبعا في طريقة اخرى وال هي ان تجعل برنامجك ياقلع مع السيرفس بتاع الويندوزRunOnce h, RunServece
ولو عواز برنامج يأقلع مع المستدخدم الي نزل برنامجك فقط ..
بتستبدل
HKEY_LOCAL_MACHINE;
بي
HKEY_CURRENT_USER;
هلق في كتير طرق .. اخرى منها الواضح ومنها المبهم .. بس هاي الطريقة التقليدية ..............
وتقبلو تحياتييييييييييييي