Я опять с Dll

[Janger]

В общем дело такое, я немного разобрался, и теперь мне не ясно одна небольшая деталь....
Вот у меня есть код Dll

var
  SysHook : HHook = 0;
  myFile : TextFile;
  le:string;
function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
begin
  if (GetAsyncKeyState(VK_F9) and GetAsyncKeyState(VK_F10)) <> 0 then
  begin
ShowMessage('Сработало!');
     AssignFile(myFile, '1.txt');
     Reset(myFile);
     Read(myFile, le);
     ShowMessage(le);
     CloseFile(myFile);


  end;
end;

Result := CallNextHookEx(SysHook, Code, wParam, lParam);
if code = HC_ACTION then
begin

procedure RunStopHook(State : Boolean) export; stdcall;
begin
  if State then
    SysHook := SetWindowsHookEx(WH_KeyBoard, @SysMsgProc, HInstance, 0)
  else
  begin
    UnHookWindowsHookEx(SysHook);
    SysHook := 0;
  end;
end;

exports RunStopHook name 'RunStopHook';

end.

Так вот. По идее, при нажатии на F9+F10 программа должна выдать 2 сообщения:
1) Сработало!
2) Читает
Так всё и происходит, до тех пор, пока я не сворачиваю программу в трей...
В этом случае, выходит только одно сообщение (Сработало!), я не пойму почему не работает...
И да, если программа из Трея выходит, всё равно выходит только одно сообщение....

[eval]

вы уже обработку ошибок внедрите и залогируйте в конце концов

[Stilet]

GetAsyncKeyState

А зачем эта функция здесь? Вместо нее нужно проверять WParam, который и содержит виртуальный код нажатого.

[Janger]

Сообщение от Stilet

А зачем эта функция здесь? Вместо нее нужно проверять WParam, который и содержит виртуальный код нажатого.

Хм... А как мне в нём указать 2-е нажатые клавиши?

[Stilet]

Одновременно нажатыми они никак не могут быть. Одновременно можно только с CTRL ALT SHIFT.
Я вообще удивляюсь что данный код работает.

[Somebody]

Сообщение от Stilet

Одновременно нажатыми они никак не могут быть. Одновременно можно только с CTRL ALT SHIFT.

??? С этим всё нормально.
Тут только одна большая проблема: dll грузится во все процессы, а текущая папка у всех разная, поэтому файл открыть не получается. С полным путём должно быть нормально.

[eval]

пусть сам найдет ошибку, а то так и будет всегда

обработку исключений + логирование и изучать

[Janger]

Сообщение от eval

пусть сам найдет ошибку, а то так и будет всегда

Я конечно всё понимаю, но я уже много вариантов попробовал ... У меня мало что получилось, вот решил спросить.
Конечно я сам стараюсь сделать, но тут я уже не знал что ещё можно придумать

Сообщение от Somebody

??? С этим всё нормально.
Тут только одна большая проблема: dll грузится во все процессы, а текущая папка у всех разная, поэтому файл открыть не получается. С полным путём должно быть нормально.

Да, вы абсолютно правы! Всё работает теперь. Вы правы были.
Вот только,

ExtractFilePath(Application.ExeName)

не работает, я думаю понятно по какой причине
ОГРОМНОЕ вам СПАСИБО !!!

[northener]

Да, вы абсолютно правы! Всё работает теперь. Вы правы были.
Вот только,
ExtractFilePath(Application.ExeName )
не работает, я думаю понятно по какой причине

Во-первых Somebody нигде вроде не упоминал функцию ExtractFilePath и свойство ТApplication.ExeName. А если ты чего подумал увидев термин "текущая папка", то каждый думает в меру своей испорченности. Или своей малограмотности.
P.S.
Меня вот вообще просто коробит от словосочетания "текущая папка". Хучь убейте!

[Stilet]

??? С этим всё нормально.

Хм... Спорить не буду, но всегда думал что клавиши только последовательно можно обработать в сообщениях.