SHFileOp FO_DELETE fehlerhaft

[teekay]

Zitat von NicoDE:

  FillChar(SHFileOP, SizeOf(TSHFileOpStruct), 0); APIs mögen keine uninitialisierten Strukturen.

ich glaub ich war mal wieder zu faul - speziell beim Initialisieren muss ich meine Gewohnheiten verbessern so funktioniert es:

Delphi-Quellcode:

procedure DeleteFileToRecycle(dateien: string);
var SHFileOP: TSHFileOpStruct;
begin
  FillChar(SHFileOP, SizeOf(TSHFileOpStruct), 0);  
  with SHFileOp do begin
    Wnd := Application.Handle;
    wFunc := FO_DELETE;
    fFlags := FOF_ALLOWUNDO;
    pFrom := PChar(dateien + #0);
  end;
  SHFileOperation(SHFileOp);
end;

danke für eure Hilfe

mfG TeeKay