+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف جلب قائمة البرامج الي تشتغل مع بدء الجهاز StartUp Program (/showthread.php?tid=4248)
كيف جلب قائمة البرامج الي تشتغل مع بدء الجهاز StartUp Program - DAMAX2010 - 08-06-2012
السلام عليكم
كيف جلب قائمة البرامج الي تشتغل مع بدء الجهاز StartUp Program
حاولت بالريجستري و ما قدرت خبرة ضعيفة لأن القيم لا تظهر باسم معين بل باسماء أخرى (اسم البرنامج و مساره)
و ايضا ملاحظة بعض البرامج الاخرى تذهب الى مجلد StartUp و تعمل اختصار يعني تكون على شكل .lnk
و شكرا لكم
كيف جلب قائمة البرامج الي تشتغل مع بدء الجهاز StartUp Program - onexite - 10-06-2012
PHP كود :
var
MyList: TStringList;
MyRegistry: TRegistry;
i: Integer;
Str: string;
PHP كود :
MyRegistry:=TRegistry.Create;
MyList:=TStringList.Create;
with MyRegistry do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall',False)=True then GetKeyNames(MyList);
CloseKey;
for i:=0 to MyList.Count-1 do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey(
'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+
MyList[i],
False);
Str:=ReadString('DisplayName');
if Str<>'' then
sListBox1.Items.Add(ReadString('DisplayName'));
CloseKey;
end;
sStatusBar1.Panels[0].Text:='You have : '+IntToStr(MyList.Count) +' Program installed !'
end;
كيف جلب قائمة البرامج الي تشتغل مع بدء الجهاز StartUp Program - DAMAX2010 - 10-06-2012
شكرا لك أخي لكن StartUp Program
Unistall سهل اما StartUp لم أعرف كيف أجلب كل القيم
كيف جلب قائمة البرامج الي تشتغل مع بدء الجهاز StartUp Program - onexite - 10-06-2012
damax2010 كتب :شكرا لك أخي لكن startup program
unistall سهل اما startup لم أعرف كيف أجلب كل القيم
اسف لم اقرا السؤال جيد
غير المسار فقط
كيف جلب قائمة البرامج الي تشتغل مع بدء الجهاز StartUp Program - DAMAX2010 - 11-06-2012
sListBox1.Items.Add(ReadString('DisplayName'));
DisplayName غير موجودة :p
كيف جلب قائمة البرامج الي تشتغل مع بدء الجهاز StartUp Program - onexite - 12-06-2012
DAMAX2010 كتب :sListBox1.Items.Add(ReadString('DisplayName'));
DisplayName غير موجودة :p
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
var
MyList: TStringList;
MyRegistry: TRegistry;
i: Integer;
begin
MyRegistry:=TRegistry.Create;
MyList:=TStringList.Create;
with MyRegistry do
begin
//RootKey:=HKEY_CURRENT_USER;
RootKey:=HKEY_LOCAL_MACHINE;
try
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',False)=True then GetValueNames(MyList);
for i:=0 to MyList.Count-1 do
lst1.Items.Add(ReadString(MyList[i]));
stat1.Panels[0].Text:='You have : '+IntToStr(MyList.Count) +' Programs Run at Windows Startup ';
finally
CloseKey;
MyList.Free;
end;
end;
end;
end.
بالتوفيق