Цитата(MetalFan @ 17.5.2009, 16:11  ) | | может стоит крайне упростить код, выполняемый в ней. не очень хорошо пускать цикл, начинать писать в файл, чего-то ждать, имхо. |
В файл пишется только для отладки, в готовом коде это будет убрано.
Цикл в конструкторе доп.потока могу убрать, но тогда нет уверенности в том, что при обращении к его методам он будет уже проинициализирован.
Сейчас пришла мысль:
А если инициализацию провести при первом вызове процедуры хука?
Правда, это тоже не рекомендуется - инициализация процесс длительный, Windows может не дождаться его окончания и прервать выполнение hook callback функции...
Добавлено через 3 минуты и 52 секунды
| Цитата(MetalFan @ 17.5.2009, 16:25 ) | | кстати, а как вообще написана DllMain? |
| Код |
hMap := OpenFileMapping(FILE_MAP_READ, False, @s[1]); // здесь содержатся только идентификаторы хуков.
if (hMap <> 0) and (hMap <> INVALID_HANDLE_VALUE) then
begin
hr := MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, SizeOf(THookRec));
if hr <> nil then
begin
Move(hr^, HookRec, SizeOf(THookRec)); // скопировали их (идентификаторы хуков) себе
UnMapViewOfFile(hr);
begin
s := 'Start sending data to main='#13#10;
if Assigned(f) then
F.Write(s[1], Length(s));
if not Assigned(MMFThread) then
MMFThread := TMMFThread.Create(GetMapName, 1024 * 1024); // непосредственно создание Thread-а обмена
// именно на его конструкторе и "зависаем".
MMFThread.AsyncAdd := True;
end
end
else
begin
s := 'Cant get map view. Error=' + IntToStr(GetLastError) + #13#10;
if Assigned(f) then
F.Write(s[1], Length(s));
end;
CloseHandle(hMap);
end
else
begin
s := 'Cant open file mapping. Error=' + IntToStr(GetLastError) + #13#10;
if Assigned(f) then
F.Write(s[1], Length(s));
end;
|
|
