Работа с файлами

[Acros]

Пишу простенькую программу основной задачей которой будет
создание/перемещение/удаление/копирование файлов.
Однако проблема в том, что каждый раз, когда программа пытается
что либо переместить создать или скопировать, появляется окошко
прогресса этого процесса. Мне же это совершенно ненужно. Как его
отключить ???



Вот пример кода который отвечает за копирование...

procedure TForm1.Button1Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
Begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, 'h:\testDir' );
StrPCopy( tobuf, 'd:\' );
With OpStruc DO Begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
ShFileOperation( OpStruc );
end;

[Lynx]

А почему бы не использовать:
-для создания файла

...
AssignFile(F,<Путь к файлу>)
Rewrite(F)
...
CloseFile(F)...

-для копирования, перемещения и удаления файлов

...
CopyFile(<имя файла источника>,<имя файла получателя>);
RenameFile(<старое имя файла>,<новое имя файла>);
DeleteFile(<имя файла>);

[Acros]

Согласен, так проще, да вот только если не ошибаюсь у казанный тобою метод роботает только для файлов. Мне же нужен универсальный способ для работы как с файлами, так и с КАТАЛОГАМИ. Указанный мной кусок кода делает и то и это без лишних заморочек.

[Lynx]

Если проникнуть в суть проблемы, что есть каталог на жестком диске? Сколько он занимает места?
На сколько я знаю, каталог - это часть логического имени файла.
И ни как на информационную часть файла не влияет, только как псевдо адрес...
Так что ты можешь манипулируя апи функциями либо работой с файлами и каталогами паскалевским методом добиться наилучшей производительности, чем с твоим окном!!! Так как многие такты процессора отводятся на визуализацию окна, а тебе это нужно?

[Acros]

Спасибо, разобрался !!!

[Lynx]

Да не за что, обращайтесь...