удалить и копировать файл с рабочего стола с помощью программы 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;

[kropotkina-alice]

С помощью ShGetSpecialFolderLocation можно узнать многое:

uses shlobj;

procedure tform1.formcreate(sender: tobject);
const
folders: array [0..15] of integer = (
csidl_bitbucket,
csidl_controls,
csidl_desktop,
csidl_desktopdirectory,

csidl_drives,
csidl_fonts,
csidl_nethood,
csidl_network,
csidl_personal,
csidl_printers,
csidl_programs,
csidl_recent,
csidl_sendto,
csidl_startmenu,
csidl_startup,
csidl_templates);

var
s: pchar;
p: pitemidlist;
i: integer;
begin
s := stralloc(128);
for i := low(folders) to high(folders) do begin
p := nil;
shgetspecialfolderlocation(form1.handle, folders[i], p);

shgetpathfromidlist(p, s);
listbox1.items.add(s);
end;
end;

[Sciv]

Злые вы, человек программу попросил, а вы ему какой-то код непонятный пишете