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

← →
The Sound (2005-10-05 21:41) [0]

Сначало код:
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:47) [1]

P.S. консолевое приложение %)

← →
Alexander Panov © (2005-10-05 21:48) [2]

Не хватает определения TBuffer и определения функции CreateBuffer

← →
GuAV © (2005-10-05 21:50) [3]

Copy & paste не всегда хорошая идея, особенно такого кода, лучше самому разобраться.

← →
The Sound (2005-10-05 21:52) [4]

Alexander Panov, а на примере?

← →
The Sound (2005-10-05 21:55) [5]

Всмысле, к чему их привязать?

← →
The Sound (2005-10-05 21:56) [6]

А, всё разобрался. спасибо.

Ошибка, при использовании ShellApi. Найти похожие ветки