+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد پاک کردن یک کلید مشخص شده رجیستری دلفی (/showthread.php?tid=2153)
سورس کد پاک کردن یک کلید مشخص شده رجیستری دلفی - Amin_Mansouri - 04-21-2012
با سورس زیر که در دلفی نوشته شده است میتونید در رجیستری ویندوز برنامه های که در start up (Run کلید ساختن میتونین پاک کنید.
ادرس کی :
Software\Microsoft\Windows\CurrentVersion\Run key,
تابع :
کد:
procedure RemoveFromRunKey(ApTitle: string);
var
Reg: TRegistry;
TheKey: string;
ListOfEntries: TStringList;
i: integer;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
TheKey := 'Software\Microsoft\Windows\CurrentVersion\Run';
// Check if key exist...
// ...if yes, try to delete the entry for ApTitle
if not Reg.OpenKey(TheKey, False) then
ShowMessage('Key not found')
else begin
if Reg.DeleteValue(ApTitle) then
ShowMessage('Removed: ' + ApTitle)
else
ShowMessage('Not found: ' + ApTitle);
end;
Reg.CloseKey;
Reg.Free;
end;نحوه فراخوانی :
کد:
RemoveFromRunKey('Calculator');