Nasao sam ovu proceduru na netu, ali kada je probram na mojim test registrima, ne radi. Ima li neko ideju sta ne valja?
U HKEY_CURRENT_CONIG sam napravio novi regkey, pod imenom dulef90, pa u njemu nikola, u ovome dulef900.
Znaci ide:
HKEY_CURRENT_CONFIG\dulef90\nikola\dulef900
Code:
procedure RemoveFromRunKey(ApTitle: string);
var
Reg: TRegistry;
TheKey: string;
ListOfEntries: TStringList;
i: integer;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_CONFIG;
TheKey := 'dulef90\nikola';
// 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;
procedure TForm1.Button1Click(Sender: TObject);
begin
RemoveFromRunKey('dulef900');
end;
end.
procedure RemoveFromRunKey(ApTitle: string);
var
Reg: TRegistry;
TheKey: string;
ListOfEntries: TStringList;
i: integer;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_CONFIG;
TheKey := 'dulef90\nikola';
// 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;
procedure TForm1.Button1Click(Sender: TObject);
begin
RemoveFromRunKey('dulef900');
end;
end.