File Into Trash/de

From Lazarus wiki

Deutsch (de)
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;
  
  ...



--Olaf 04:05, 17 May 2013 (UTC)