Dodanie do HKEY_LOCAL_MACHINE

0

Witam ponownie =]

aby dodac program do RUN jest cos takiego:

[code]begin
GetCurrentDirectory(sizeof(Sciezka),Sciezka); //katalog bieżacy
Reg := TRegistry.Create;
try
ShowWindow(Handle,SW_HIDE);
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.WriteString('Media DDV', 'C:\Program Files\Program.exe);
finally
Reg.Free;
end;[/code]

Ale to dadaje klucz do galezi " HKEY_CURRENT_USER " =[

a ja bym chcial dodac do galezi " HKEY_LOCAL_MACHINE " konkretnie do

[code]
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices

[/code]

niestety to nie dziala =[ :

[code]

begin

GetCurrentDirectory(sizeof(Sciezka),Sciezka); //katalog bieżacy
Reg := TRegistry.Create;
try
ShowWindow(Handle,SW_HIDE);
Reg.OpenKey('HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices', True);
Reg.WriteString('Media DDV', 'C:\Program Files\Program.exe);
finally
Reg.Free;
end;

[/code]

0

RootKey + F1 (Registry.RootKey:=hKEY_LOCAL_MACHINE).

0

np.:

var
Rejestr : TRegistry;

begin
Rejestr := TRegistry.Create;

try
Rejestr.RootKey := HKEY_LOCAL_MACHINE;
Rejestr.OpenKey('Software\Microsoft\Windows\CurrentVersion\Network\LanMan\gry', true);
Rejestr.WriteString('Path','D:\gry');
Rejestr.WriteString('Remark','');
Rejestr.WriteInteger('Type',0);
Rejestr.WriteInteger('Flags',914);

Rejestr.CloseKey;

finally
Rejestr.Free;

0

wielkie thx! =] dziala ;]

1 użytkowników online, w tym zalogowanych: 0, gości: 1