|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#5
|
|||
|
|||
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; |