Einbinden funktioniert nicht...?

[TheMiller]

Hey Leute,

möchte einen Ordner kopieren und verwende diesen Code:

Delphi-Quellcode:

function TForm1.SHCopyFile(Handle: THandle; szSource, szDestination: TFileName): Boolean;
var
  ShellFileOperation: TSHFileOpStruct;
begin
  Result := True;
  try
    with ShellFileOperation do
    begin
      Wnd := Handle;
      wFunc := FO_COPY;
      pFrom := PChar(szSource);
      pTo := PChar(szDestination);
      // fFlags := FOF_FILESONLY OR FOF_NOCONFIRMMKDIR FOF_SIMPLEPROGRESS;
      fFlags := FOF_NOCONFIRMMKDIR;
      lpszProgressTitle := 'Dateien kopieren ...';
    end;
    SHFileOperation(ShellFileOperation);
  except
    Result := False;
  end;
end;

eingebunden habe ich folgendes:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, inifiles , shellAPI, SHLObj, Menus, ExtCtrls, ComCtrls;

und der Compiler gibt bezüglich des oben genannten Codes diese Meldung:

Delphi-Quellcode:

[Fehler] Unit1.pas(104): Undefinierter Bezeichner: 'SHCopyFile'
[Fehler] Unit1.pas(108): Undefinierter Bezeichner: 'Result'
[Fehler] Unit1.pas(112): Undefinierter Bezeichner: 'Handle'
[Fehler] Unit1.pas(114): Undefinierter Bezeichner: 'szSource'
[Fehler] Unit1.pas(115): Undefinierter Bezeichner: 'szDestination'

Was soll ich noch einbinden?

[Alexander]

Du musst wenn du

Delphi-Quellcode:

function TForm1.SHCopyFile(Handle: THandle; szSource, szDestination: TFileName): Boolean;

schreibst auch daran denken, dass du die Funktion auch deklarieren muss.
Oder lasse einfach Tform1 weg..

[TheMiller]

Danke, geht jetzt einwandtfrei...