Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Прогрес в операциях над файлами [D6, WinXP]

Ghost. © (2002-08-15 09:58:00)
Ктонибудь знает как отслежить прогесс в операциях над файлами копирование перемещение удаление

Ghost. (2002-08-16 11:34:00) [1]
СПАСИБА ТЫ НАСТАЯЩИЙ ДРУГ

Opuhshii (2002-08-15 13:51:00) [2]
уж извини за оформление... %)

Opuhshii (2002-08-15 13:50:00) [3]
function MyCopyProgressRoutine(TotalFileSize:int64;TotalBytesTransferred:int64;StreamSize:int64;StreamBytesTransferred:int64;dwStreamNumber:Dword; dwCallbackReason:Dword; hSourceFile:DWORD; hDestinationFile:DWORD; lpData:Pointer):DWORD;stdcall;

implementation

function MyCopyProgressRoutine(TotalFileSize:int64;TotalBytesTransferred:int64;StreamSize:int64;StreamBytesTransferred:int64;dwStreamNumber:Dword; dwCallbackReason:Dword; hSourceFile:DWORD; hDestinationFile:DWORD; lpData:Pointer):DWORD;
begin
Showmessage(inttostr(TotalBytesTransferred)+ " coped!" );
result:=PROGRESS_CONTINUE;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
calbackproc:pointer;
pbCancel:integer;
begin
calbackproc:=@MyCopyProgressRoutine;
pbCancel:=0;
if not CopyFileEx(pchar("C:\SourceFile.txt"),pchar("C:\DestenationFile.txt "),calbackproc,nil, @pbCancel , COPY_FILE_FAIL_IF_EXISTS) then
Showmessage(inttostr(GetLastError));
end;

Ghost. (2002-08-15 12:31:00) [4]

> dmtr

а куда точнее? в винде когда копируется или переноситься файл выскакивает формочка и по ней бежит прогрессбар, вот хочется тоже самое, но передавать значения в свой прогрессбар

dmtr (2002-08-15 11:53:00) [5]

> Ghost. ©

Можно по точнее сформулировать вопрос?

Ghost. (2002-08-15 10:27:00) [6]

> Opuhshii ©

Эту функцию я видел тока копировать не получается

Opuhshii (2002-08-15 10:12:00) [7]
BOOL CopyFileEx(

LPCWSTR lpExistingFileName, // pointer to name of an existing file
LPCWSTR lpNewFileName, // pointer to filename to copy to
LPPROGRESS_ROUTINE lpProgressRoutine, // pointer to the callback function
LPVOID lpData, // to be passed to the callback function
LPBOOL pbCancel, // flag that can be used to cancel the operation
DWORD dwCopyFlags // flags that specify how the file is copied
);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »