[-=anti=-KILLer]

Пжлст, помогите, надо перенаправить рабочий стол из папки "C:\Doc & Set\UserName\Рабочий Стол" в папку C:\Temp. Чтобы все значки и программы были из папки темп

[Aristarh Dark]

Сообщение от -=anti=-KILLer

Пжлст, помогите, надо перенаправить рабочий стол из папки "C:\Doc & Set\UserName\Рабочий Стол" в папку C:\Temp. Чтобы все значки и программы были из папки темп

Меняй значение ключа
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Shell Folders\desktop

[-=anti=-KILLer]

большущие СПАСИБО !!! мне очень помогло !!! Х)

[-=anti=-KILLer]

Опять переадресация рабочего стола!!!
ЧОРТ !!! Не работает !!!
меняю в реестре и через Delphi, но всё-равно после перезагрузки значения востанавливаются!!! помогите !!! или другой способ, или как с этим разобраться?

[SPad]

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;