Löschen von Files ...., E2003 Undeklarierter Bezeichner: 'Application'

[bernhard_LA]

den Code habe ich aus dieser Quelle https://www.delphi-treff.de/tipps-tr...isse-loeschen/

Delphi-Quellcode:

function DeleteFiles(const AFile: string): boolean;
var
  sh: SHFileOpStruct;
begin
  ZeroMemory(@sh, SizeOf(sh));
  with sh do
  begin
    Wnd := Application.Handle;
    wFunc := FO_DELETE;
    pFrom := PChar(AFile +#0);
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  result := SHFileOperation(sh) = 0;
end;

ich habe das Ganze in eine Unit eingefügt und bekomme beim Übersetzen eine Fehlermeldung

[DCC Fehler] diverse_funktionen.pas(2815): E2003 Undeklarierter Bezeichner: 'Application'

ich würde ungern mehr Parameter im Aufruf übergeben, was wäre der bester Tipp um mein Problem zu beheben

[bernau]

Vcl.Forms in die Uses eingebunden?

[nahpets]

Application ist 'ne globale Variabel, bei Delphi 7 in Forms definiert.

Forms in Uses aufnehmen und es sollte klappen.

[jaenicke]

Wobei das Handle bei FOF_SILENT auch einfach 0 sein kann. Das braucht man nur, damit das "Elternfenster" einer Meldung zugeordnet werden kann. (Das entscheidet wie das Fenster angezeigt wird, im Vordergrund, blinkend in der Taskleiste, ...)

Ab Delphi 2007 bringt das Application.Handle an der Stelle ohnehin nicht mehr viel, wenn in der Taskleiste das Hauptfenster statt dieses versteckten Fensters angezeigt wird.

[bernhard_LA]

danke, die Unit forms war nicht eingebunden .....