Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

3rd
Сен

Как удалить и копировать файлы с рабочего стола с помощью программы на Delphi

Posted by obzor under Delphi

Необходимо написать программу, которая при нажатии на кнопку удалила бы файл с рабочего стола или скопировала файл с рабочего стола и вставила его в папку, в которой лежит сама программ.Как получить путь к рабочему столу?

SLAUR

Путь к рабочему столу для текущего пользователя

Код:


Function PathDesktopUser:String;
var  r : TRegistry;
begin
Result:='';
try
r:=TRegistry.Create(KEY_READ);
R.RootKey := HKey_Current_User;
R.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False);
if r.ValueExists('Desktop') then  Result:=r.ReadString('Desktop');
finally
r.CloseKey;
r.Free;
end;
end;

Путь к рабочему столу для всех пользователей

Код:


Function PathDesktopAllUser:String;
var  r : TRegistry;Path:string;
begin
Result:='';
try
r:=TRegistry.Create(KEY_READ);
R.RootKey:=HKEY_LOCAL_MACHINE;
if R.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Shell Folders',False) then
if r.ValueExists('Common Desktop') then
 Result:=r.ReadString('Common Desktop');
if Result='' then
begin
Result:=PathDesktopUser;
end;
Finally
r.CloseKey;
r.Free;
end;
end;

Shouldercannon

Код:


uses Winapi.ShlObj
...
procedure TForm1.Button1Click(Sender: TObject);
  function GetDesktopPath1: String; // Текущий пользователь
  var
    Buffer: Array[0..MAX_PATH] of Char;
  begin
    if ShGetSpecialFolderPath(Application.Handle, Buffer, CSIDL_DESKTOPDIRECTORY, False)
      then Result := Buffer else Result := '';
  end;

  function GetDesktopPath2: String; // Все пользователи
  var
    Buffer: Array[0..MAX_PATH] of Char;
  begin
    if ShGetSpecialFolderPath(Application.Handle, Buffer, CSIDL_COMMON_DESKTOPDIRECTORY, False)
      then Result := Buffer else Result := '';
  end;
begin
  ShowMessage(GetDesktopPath1);
  ShowMessage(GetDesktopPath2);
end;