Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка, при использовании ShellApi. [D7, XP]

The Sound © (2005-10-05 21:41:00)
Сначало код:
function CopyFiles( Handle : Hwnd; Src : array of string;
Dest : string; Move : Boolean; AutoRename : Boolean ) : Integer;
var
SHFileOpStruct : TSHFileOpStruct;
SrcBuf : TBuffer;
begin
CreateBuffer( Src, SrcBuf );
with SHFileOpStruct do
begin
Wnd := Handle;
wFunc := FO_COPY;
if Move then wFunc := FO_MOVE;
pFrom := Pointer( SrcBuf );
pTo := PChar( Dest );
fFlags := 0;
if AutoRename then
fFlags := FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
Result := SHFileOperation( SHFileOpStruct );
SrcBuf := nil;
end;

Выдаёт ошибку на:
[Error] Project1.dpr(22): Undeclared identifier: 'TBuffer'
[Error] Project1.dpr(24): Undeclared identifier: 'CreateBuffer'
...

uses
Windows, Registry, SysUtils, ShellApi;

Чего не хватает подскажите? Спасибо.

The Sound (2005-10-05 21:56:00) [1]
А, всё разобрался. спасибо.

The Sound (2005-10-05 21:55:00) [2]
Всмысле, к чему их привязать?

The Sound (2005-10-05 21:52:00) [3]
Alexander Panov, а на примере?

GuAV (2005-10-05 21:50:00) [4]
Copy & paste не всегда хорошая идея, особенно такого кода, лучше самому разобраться.

Alexander Panov (2005-10-05 21:48:00) [5]
Не хватает определения TBuffer и определения функции CreateBuffer

The Sound (2005-10-05 21:47:00) [6]
P.S. консолевое приложение %)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »