Форум: "Начинающим";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];
Вниз
Ошибка, при использовании 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c
