Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Шичко Игорь Статус: Студент Рейтинг: 260 ∙ повысить рейтинг >>

Николай Владимирович / Н.В. Статус: Академик Рейтинг: 63 ∙ повысить рейтинг >>

Genia007 Статус: 10-ый класс Рейтинг: 61 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1221
от 03.11.2008, 16:35

Вопрос № 148849: Сталкивался ли кто-нибудь с отслеживанием копирования/перемещения файлов, например, на сменные носители? Пробовал: ICopyHook - работает только с папками, FindFirstChangeNotification - не позволяет дифференцировать события, сообщения Windows - не рабо...

Вопрос № 148.849

Сталкивался ли кто-нибудь с отслеживанием копирования/перемещения файлов, например, на сменные носители? Пробовал: ICopyHook - работает только с папками, FindFirstChangeNotification - не позволяет дифференцировать события, сообщения Windows - не работают; надежда на zwCreateFile, но по отзывам критикуют, что на низком уровне и используя ядро. Может, есть альтернативы?

Отправлен: 29.10.2008, 08:16 Вопрос задал: Козьмин Сергей Олегович (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Genia007 Здравствуйте, Козьмин Сергей Олегович! Попробуйте такую процедуру, у меня в проги работает как часы. Приложение: procedure Tzurnals.FileSaveAs1Accept(Sender: TObject); // Сохранение данных в другом месте var Fo : TSHFileOpStruct; buffer : array [0..4096] of char; p : pchar; begin // Windows*кий способ копирования со всеми сопутствующими диалогами FillChar(Buffer, sizeof(Buffer), #0); p := @buffer; //Начали подключение файлов, предназначенных для копирования p := StrECopy(p, PChar("файл копирования")) + 1; FillChar(Fo, sizeof(Fo), #0); Fo.Wnd := Handle; Fo.wFunc := FO_COPY; //Действие Fo.pFrom := @Buffer; //Источник Fo.pTo := PChar(FileSaveAs1.Dialog.FileName); //Назначение - показываем куда копируем Fo.fFlags := 0; if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then ShowMessage('Сохранение отменено пользователем!'); Application.ProcessMessages; end;

Ответ отправил: Genia007 (статус: 10-ый класс) Ответ отправлен: 30.10.2008, 11:11 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148849 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 148.877

Здраствуйте ув. Эксперты. Такой вопрос. Как можна узнать дату изменения файла (ну или другой атрибут фала), зная путь к нему. Файл в папке один. Если можна, то наиболее проще. Заранее спасибо.

Отправлен: 29.10.2008, 13:35 Вопрос задал: Пустовойтенко Виктор Григорьев (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Пустовойтенко Виктор Григорьев! Дату изменения/создания/последнего обращения к файлу можно получить с помощью функции GetFileInformationByHandle(). В Delphi она объявлена в модуле Windows: function GetFileInformationByHandle(hFile: THandle; var lpFileInformation: TByHandleFileInformation): BOOL; hFile - хэндл файла, полученный с помощью CreateFile(). lpFileInformation - структура, в которую функция сохранит информацию о файле. Вот описание структуры TByHandleFileInformation: Код: TByHan dleFileInformation = _BY_HANDLE_FILE_INFORMATION; _BY_HANDLE_FILE_INFORMATION = record dwFileAttributes: DWORD; //Дата создания... ftCreationTime: TFileTime; //...последнего обращения... ftLastAccessTime: TFileTime; //...записи ftLastWriteTime: TFileTime; dwVolumeSerialNumber: DWORD; nFileSizeHigh: DWORD; nFileSizeLow: DWORD; nNumberOfLinks: DWORD; nFileIndexHigh: DWORD; nFileIndexLow: DWORD; Тут как мы видим достаточно много информации, но нас интерисует только поля: ftCreationTime, ftLastAccessTime, ftLastWriteTime. Они содержат даты создания/изменения/последнего обращения к файлу. Эти поля имеют тип TFileTime, который не очень пригоден для вывода на экран. Чтобы вывести его надо переконвертировать в тип TDateTime с помощью функции FileTim eToDateTime(): Код: function FileTimeToDateTime(FileTime: TFileTime): TDateTime; var ModifiedTime: TFileTime; SystemTime: TSystemTime; begin Result := 0; if (FileTime.dwLowDateTime = 0) and (FileTime.dwHighDateTime = 0) then Exit; try FileTimeToLocalFileTime(FileTime, ModifiedTime); FileTimeToSystemTime(ModifiedTime, SystemTime); Result := SystemTimeToDateTime(SystemTime); except Result := Now; // Something to return in case of error end; end; В приложении код консольной программы, которая выводит даты создания, обращения, записи файла. Вот еще один способ(URL > >источник): Код: var SR: TSearchRec; FileName: string; LastWrite, LastAccess, CreateTime: TDateTime; begin FileName:='ИмяФайла'; FindFirst(FileName, faArchive, SR); LastWrite := FileTimeToDateTime(SR.FindData.ftLastWriteTime); LastAccess := FileTimeToDateTime(SR.FindData.ftLastAccessTime); CreateTime := FileTimeToDateTime(SR.FindData.ftCreationTime); FindClose(SR); ShowMessage('Имя файла: ' + FileName + #13#13+ 'Создан: ' + DateTimeToStr(CreateTime) + #13#13+ 'Изменен: ' + DateTimeToStr(LastWrite) + #13#13+ 'Последний доступ: ' + DateTimeToStr(LastAccess)) end; Удачи!!! Приложение: program Project1; {$APPTYPE CONSOLE} uses Windows, SysUtils; var //Имя файла FileName: string; //Хэндл файла FHandle: THandle; //Информация о файле FileInfo: TByHandleFileInformation; //Функция перевода TFileTime в TDateTime function FileTimeToDateTime(FileTime: TFileTime): TDateTime; var ModifiedTime: TFileTime; SystemTime: TSystemTime; begin Result := 0; if (FileTime.dwLowDateTime = 0) and (FileTime.dwHighDateTime = 0) then Exit; try FileTimeToLocalFileTime(FileTime, ModifiedTime); FileTimeToSystemTime(ModifiedTime, SystemTime); Result := SystemTimeToDateTime(SystemTime); except Result := Now; // Something to return in case of error end; end; begin //Получаем имя файла: Write('File name: '); ReadLn(FileName); //Получаем хендл, открывая файл FHandle := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0); //Получаем информацию о файле GetFileInformationByHandle(Fhandle, FileInfo); //Закрываем файл CloseHandle(FHandle); //Выводим информацию WriteLn('Creation time: ', DateTimeToStr(FileTimeToDateTime(FileInfo.ftCreationTime))); WriteLn('Last access time: ', DateTimeToStr(FileTimeToDateTime(FileInfo.ftLastAccessTime))); WriteLn('Last write time: ', DateTimeToStr(FileTimeToDateTime(FileInfo.ftLastWriteTime))); ReadLn; end.

Ответ отправил: Абельхарисов Руслан/Marked One (статус: Студент) Ответ отправлен: 29.10.2008, 17:55 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148877 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Круто! Очень точно и исчерпывающе. Огромное спасибо.

Отвечает: Виктор Пырлик Здравствуйте, Пустовойтенко Виктор Григорьев! вот простой пример. только, подключите Imagehlp. т.е. в секцию uses добавьте модуль Imagehlp. например так: Код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons,Imagehlp, ComCtrls; Код: {********* получить контрольную сумму файла ************************************} function getCRC(fname:String):DWORD; var dwFileChecksum, dwRealChecksum:DWORD; begin MapFileAndCheckSum(PChar(fname), dwFileChecksum, dwRealChecksum); result := dwRealChecksum; end; //-------- Преобразовать время файла в локальное время ------------------------- function getLocalTime(ft:FILETIME):TDateTime; var sTime,lTime:SYSTEMTIME; begin FileTimeToSystemTime(ft,sTime); SystemTimeToTzSpecificLocalTime(nil,sTime,lTime); result := SystemTimeToDateTime(lTime); end; //----------- Получить информацию о файле -------------------------------------- procedure GenInfoFile(const fname:String;var str_info:String); var fi:WIN32_FILE_ATTRIBUTE_DATA; begin if(GetFileAttributesEx(PChar(fname),GetFileExInfoStandard,@fi)) then begin str_info := Format('Создан: %s'#13,[DateTimeToStr(getLocalTime(fi.ftCreationTime))]); str_info := str_info+Format('Время обращения: %s'#13,[DateTimeToStr(get LocalTime(fi.ftLastAccessTime))]); str_info := str_info+Format('Вребя записи: %s'#13,[DateTimeToStr(getLocalTime(fi.ftLastWriteTime))]); str_info := str_info+Format('Размер: %.2f кб'#13,[fi.nFileSizeLow/1024.0]); str_info := str_info+Format('Контрольная сумма: %X'#13,[getCRC(fname)]); end; end; //------------------------------------------------------------------------------ procedure TForm1.SpeedButton1Click(Sender: TObject); var s:String; begin if OpenDialog1.Execute then begin Edit1.Text := OpenDialog1.FileName; RichEdit1.Clear; GenInfoFile(Edit1.Text,s); RichEdit1.Text := s; end; end; --------- не получается там - где не пробуют

Ответ отправил: Виктор Пырлик (статус: Профессионал) Россия, Екатеринбург Тел.: 89043822027 ICQ: 490191733 ---- Ответ отправлен: 29.10.2008, 21:16 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148877 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Отвечает: Сазонов Михаил Владимирович Здравствуйте, Пустовойтенко Виктор Григорьев! В принципе Вам уже ответили. Просто еще один вариант, выбирайте! Удачи. Приложение: type TPrmFile = record fData : TDate;// дата создания файла fTime: TTime;// время создания файла fName: string;// имя файла fPath: string;// полный путь к файлу на источнике fSession: Integer;// номер сеанса fNote: string;//доп. описание и примечания end; procedure TFrmFileInfo.ShowInfoFile( NameFile: TFileName); var fHandl: THandle; begin// показать инфу о файле fHandl := 0; if NameFile<>'' then try FillChar( sPrm, SizeOf(sPrm), 0); fHandl := FileOpen( NameFile, fmOpenRead);// открыть файл sPrm.fData := FileDateToDateTime (FileGetDate(FHandl)); sPrm.fTime := FileDateToDateTime (FileGetDate(FHandl)); sPrm.fName := ExtractFileName(NameFile); sPrm.fPath := ExtractFilePath(NameFile); sPrm.fSession := Length(sPrm.fName); sPrm.fNote := LblEdt6.Text; DialogDb.ShowOKButton := True; finally FileClose(fHandl);// закрыть в любом случае end else DialogDb.ShowOKButton := False; //выводим инфо. структуру LblEdt1.Text := DateToStr(( sPrm.fData )); LblEdt2.Text := TimeToStr(( sPrm.fTime )); LblEdt3.Text := sPrm.fName; LblEdt4.Text := sPrm.fPath; LblEdt5.Text := IntToStr( sPrm.fSession); LblEdt6.Text := sPrm.fNote; end;

Ответ отправил: Сазонов Михаил Владимирович (статус: 2-ой класс) Ответ отправлен: 30.10.2008, 09:53 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148877 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 148.883

Здравствуйте! Каким образом можно узнать, работает ли еще приложение, запущенное например при помощи ShellExecute?

Отправлен: 29.10.2008, 14:55 Вопрос задал: Jaybob (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Genia007 Здравствуйте, Jaybob! Нашёл такой вот код, возможно он Вам подойдёт: Приложение: uses Psapi, tlhelp32; procedure CreateWin9xProcessList(List: TstringList); var hSnapShot: THandle; ProcInfo: TProcessEntry32; begin if List = nil then Exit; hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0); if (hSnapShot <> THandle(-1)) then begin ProcInfo.dwSize := SizeOf(ProcInfo); if (Process32First(hSnapshot, ProcInfo)) then begin List.Add(ProcInfo.szExeFile); while (Process32Next(hSnapShot, ProcInfo)) do List.Add(ProcInfo.szExeFile); end; CloseHandle(hSnapShot); end; end; procedure CreateWinNTProcessList(List: TstringList); var PIDArray: array [0..1023] of DWORD; cb: DWORD; I: Integer; ProcCount: Integer; hMod: HMODULE; hProcess: THandle; ModuleName: array [0..300] of Char; begin if List = nil then Exit; EnumProcesses(@PIDArray, SizeOf(PIDArray), cb); ProcCount := cb div SizeOf(DWORD); for I := 0 to ProcCount - 1 do begin hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PIDArray[I]); if (hProcess <> 0) then begin EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb); GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName)); List.Add(ModuleName); CloseHandle(hProcess); end; end; end; procedure GetProcessList(var List: TstringList); var ovi: TOSVersionInfo; begin if List = nil then Exit; ovi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); GetVersionEx(ovi); case ovi.dwPlatformId of VER_PLATFORM_WIN32_WINDOWS: CreateWin9xProcessList(List); VER_PLATFORM_WIN32_NT: CreateWinNTProcessList(List); end end; function EXE_Running(FileName: string; bFullpath: Boolean): Boolean; var i: Integer; MyProcList: TstringList; begin MyProcList := TStringList.Create; try GetProcessList(MyProcList); Result := False; if MyProcList = nil then Exit; for i := 0 to MyProcList.Count - 1 do begin if not bFullpath then begin if CompareText(ExtractFileName(MyProcList.Strings[i]), FileName) = 0 then Result := True end else if CompareText(MyProcList.strings[i], FileName) = 0 then Result := True; if Result then Break; end; finally MyProcList.Free; end; end; // Example 1: Is a Exe-File running ? procedure TForm1.Button1Click(Sender: TObject); begin if EXE_Running('Notepad.exe', False) then ShowMessage('EXE is running') else ShowMessage('EXE is not running'); end; // Example 2: List running Exe-Files procedure TForm1.Button3Click(Sender: TObject); var i: Integer; MyProcList: TstringList; begin MyProcList := TStringList.Create; try GetProcessList(MyProcList); if MyProcList = nil then Exit; for i := 0 to MyProcList.Count - 1 do ListBox1.Items.Add(MyProcList.Strings[i]); finally MyProcList.Free; end; end;

Ответ отправил: Genia007 (статус: 10-ый класс) Ответ отправлен: 30.10.2008, 11:19 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148883 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.9 от 29.10.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru