procedure TForm1.RabStolOKClick(Sender: TObject);
begin
Play;
WriteReg(HKEY_USERS, WinKey + '\Software\Microsoft\Windows\CurrentVersion\Explor er\User Shell Folders',
'Desktop', RabStolEdit.Text)
end;
function WriteReg(RootKey: HKEY; Key: string; Name, Value : string; CanCreate: boolean=true) : string;
function WriteReg(RootKey: HKEY; Key, Name, Value: string;
CanCreate: boolean): string;
var
Reg : TRegistry;
begin
Reg := TRegistry.Create ;
Reg.RootKey := RootKey;
reg.OpenKey(Key, CanCreate);
reg.WriteString(Name, Value);
Reg.CloseKey;
reg.Free;
end;
|