Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

Ну очень росто   Найти похожие ветки 

 
начинающий програмер ©   (2002-10-12 08:34) [0]

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
Здравствуйте!
Есть простой кусок кода, но в нём естьошибка-ругается на
F : TShFileOpStruct; В чём проблема, ведь TShFileOpStruct-стандартный тип. Или я неправ??

var
F : TShFileOpStruct;
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) = 0;
end;


 
TTCustomDelphiMaster ©   (2002-10-12 09:59) [1]

uses shellapi



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

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.023 c
3-78229
ДенМат
2002-10-01 14:05
2002.10.24
Да как же, блин, делать обновления..


14-78593
Ajax
2002-09-27 11:14
2002.10.24
Глюки при использовании фреймов.


1-78483
Inan61
2002-10-12 16:50
2002.10.24
TSpeedButton и Glyph - как реализовать?


3-78239
brestmarket
2002-10-01 01:44
2002.10.24
Проблема при сжатии ADO-database при помощи JetEngine.CompactData


3-78300
aleksei
2002-10-03 15:31
2002.10.24
SyBase