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?