Black screen! :?:

[RomanK]

Aus dem EDH (www.delphi-treff.de):

Zitat:

Eine Datei in den Papierkorb löschen


Diese Procedure löscht die Datei 'C:\Test.dat' in den Papierkorb (Ergänzung von Peter Haas).

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  Operation : TSHFileOpStruct;
  FileName : String;
begin
  FileName := 'c:\test.dat'; { zu loeschende Datei }
  Filename := Filename + #0; { zweite 0 }
  with Operation do
    begin
      wnd := Form1.Handle;
      wFunc := FO_Delete;
      pFrom := PChar(FileName);
      pto := nil;
      { in den Papierkorb verschieben / keine
        Sicherheitsabfrage }
      fFlags := FOF_AllowUndo or FOF_NoConfirmation;
    end;
  SHFileOperation(Operation);
end;