Прогрес в операциях над файлами

← →
Ghost. (2002-08-15 09:58) [0]

Ктонибудь знает как отслежить прогесс в операциях над файлами копирование перемещение удаление

← →
Opuhshii (2002-08-15 10:12) [1]

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
);

← →
Ghost. (2002-08-15 10:27) [2]

> Opuhshii ©

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

← →
dmtr (2002-08-15 11:53) [3]

> Ghost. ©

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

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

> dmtr

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

← →
Opuhshii (2002-08-15 13:50) [5]

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;

← →
Opuhshii (2002-08-15 13:51) [6]

уж извини за оформление... %)

← →
Ghost. (2002-08-16 11:34) [7]

СПАСИБА ТЫ НАСТАЯЩИЙ ДРУГ

Прогрес в операциях над файлами Найти похожие ветки