Скачать: CL | DM;

Ошибка, при использовании 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c