function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var
F                             : TShFileOperation;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
FromFile:=FromFile+#0;
F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0;
F.pTo:=pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result:=ShFileOperation(F);
end;


Undeclared .... TShFileOperation
..........

Uses ShellApi.

Цитата(Vit @ 27.9.2002, 02:11)

Uses ShellApi.

Vit, не идет!
Ошибки теже:

Undeclared...
Missing operator...

Ок! Все такие случаи решаются по следующему алгоритму:

1) Открываем help по типу - там должен быть указатель на модуль где тип объявлен если нет то

2) Заряжаем поиск по каталогу Дельфи (с подкаталогами) маска *.pas;*.inc c поиском слова внутри текста "ShFileOperation" или любого другого типа, во всех файлах смотрим где объявлен этот тип... Если не найден то

3) Это либо DLL, либо ActiveX - тут уж предпочтение - искать по всем файлам и исследовать каждый файл на наличие такого типа или искать в сети доку по использованию функции.

Обычно хватает первых 2х пунктов.

А я делаю вот так:
function WindowsCopyFile(FromFile,ToDir: string;
                        const WndShow: Boolean = False;
                        const Flags: Word = FOF_ALLOWUNDO or FOF_NOCONFIRMATION
                       ): boolean;
// Копирование файла
var
 OpStruc: TSHFileOpStruct;
 frombuf, tobuf: Array [0..128] of Char;
begin
 FillChar(frombuf, Sizeof(frombuf), 0 );
 FillChar(tobuf, Sizeof(tobuf), 0 );
 StrPCopy(frombuf, FromFile);
 StrPCopy(tobuf, ToDir);
 With OpStruc DO Begin
   if WndShow then
     Wnd:= 0;
   wFunc:= FO_COPY;
   pFrom:= @frombuf;
   pTo:=@tobuf;
   fFlags:= Flags;
   fAnyOperationsAborted:= False;
   hNameMappings:= Nil;
   lpszProgressTitle:= Nil;
 end;
 result:=ShFileOperation( OpStruc ) = 0;
end;