File Into Trash/de

From Free Pascal wiki
Jump to navigationJump to search
Windows logo - 2012.svg

Dieser Artikel behandelt ausschließlich Windows.

Siehe auch: Multiplatform Programming Guide/de

Deutsch (de) English (en)


Zurück zur Seite Code Beispiele.


Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.

Die Funktion verschiebt eine Datei in den Papierkorb.

uses
  ShellAPI, FileUtil, ...;
  
  ...
  
function funDateiInPapierkorbVerschieben(strDateiname: string): boolean;
var
  Dateistruktur: TSHFileOpStruct;
begin
  FillChar(Dateistruktur, SizeOf(Dateistruktur), 0);

  with Dateistruktur do
  begin
    wFunc := FO_DELETE;
    // Lässt Umlaute usw. im Dateinamen zu
    pFrom := PChar(UTF8ToSys(strDateiname));
    fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION + FOF_SILENT;
  end;

  Result := ShFileOperation(Dateistruktur) = 0;
end;
  
  ...