Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];
Вниз
Прогрес в операциях над файлами Найти похожие ветки
← →
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]СПАСИБА ТЫ НАСТАЯЩИЙ ДРУГ
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c