Создание окна через CreateWindowEx

[Nowichok]

Собственно, процесс закрытия программы.
в основной форме :

 procedure TChange_Volume.FormClose(Sender: TObject; var Action: TCloseAction);
begin
unhookwindowshookex(hookhandle); //убираю ловушку
freelibrary(hinstdll); //освобождаю из памяти мою dll
end;

А вот что в библиотеке :

 procedure DLLEntryPoint(dwReason: DWord);
begin
  case dwReason of
    DLL_PROCESS_ATTACH:
     begin
      CreateWin;
     end;
    DLL_PROCESS_DETACH:
     begin
      ReleaseDC(hwndMain,HDC);
      DestroyWindow(hwndMain);
      UnRegisterClass(wc.lpszClassName,HInstance); 
     end;
  end;
end;

Ну и на всякий сама обработка сообщения моего создаваемого через CreateWindow окна (hwndMain которое)

 function MyProc(Window: HWnd; AMessage, WParam, LParam: Longint): Longint; stdcall;
begin
  //подпрограмма обработки сообщений
  case AMessage of
    WM_DESTROY:
    begin
      PostQuitMessage(0);
      Result := 0;
   end;
    wm_Timer:
    begin
     ShowWindow(hwndMain, SW_HIDE);
    end;
    else
      Result := DefWindowProc(Window, AMessage, WParam, LParam);
  end;
end;

Директива StdCall стоит только у function MyProc. Если её оттуда убрать, то ошибка выдаётся через 5 секунд после пуска программы.

Я опять бессилен здесь... Получается, что иногда первой выгружается не сама программа (как правильно должно быть), а библиотека из какого-нибудь процесса...и вылетает ошибка.
Как можно это исправить ?

[rpy3uH]

а тебе какой порядок нужен?

[Nowichok]

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

а тебе какой порядок нужен?

По идее...при выходе из программы самой (основной), сначала она выгружается..а потом всё выгружается из других процессов. Но видать и не так даже, т.к. ошибки вылазят, когда просто закываю приложение (аську, проигрыватель и т.п.)...в них выскакивает ошибка, а другие (вообще третьи приложения), просто тихо-мирно закрываются (агент например). Где-то видать ошибка в памяти ,которая сразу не видна...а потом даёт о себе знать.

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

[Drop]

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

По идее...при выходе из программы самой (основной), сначала она выгружается..а потом всё выгружается из других процессов. Но видать и не так даже, т.к. ошибки вылазят, когда просто закываю приложение (аську, проигрыватель и т.п.)...в них выскакивает ошибка, а другие (вообще третьи приложения), просто тихо-мирно закрываются (агент например). Где-то видать ошибка в памяти ,которая сразу не видна...а потом даёт о себе знать.

Во-первых: при нормальном раскладе программа сначала чистит все, что с ней связано (удаляет хуки, выгружает библилотеки), а потом выгружается сама (т.к. если она выгрузится - она уже не работает и следовательно не может выполнять команды).

Во-вторых: любой хук перехватывает сообщения. Также многие программы, поддерживающие плагины (например винамп), используют сообщения. Т.е. суть их плагинов в том, что они принимают сообщения от других программ и реагируют на них. Системное сообщение WM_USER создано специально для этих целей и имеет произвольный код. Если возникает конфликт кодов вылетает ошибка.
Также известны многочисленные глюки при использовании хук'а. Например: во время его работы перехватываемые клавиши залиапли.

Но: Сообщения не единственный путь поддержки плагинов. Поэтому программы поддерживающие плагины другого вида или не поддерживающие плагины - ошибок не выдают.

Рекомендую перед закрытием убивать все хуки и т.д. а потом выгружаться.

Еще ощибка может возникать при попытке хука отдать значение нажатой клавиши несуществующюму (странное получилось слово)))) приложению. Т.е. при установке хука мы указываем хэндл принимающей формы. Если приложение закрылось, а хук остался - он продолжает посылать сообщения с кодом клавишы (без принимающей формы - в никуда).

ИМХО как показывает практика - поблема не в ошибке, а в ее последствиях. Если после убийства вылетит ошибка, которая не на что не влияет, можно использовать:

try
...//код
except
...//обработчик ошибки - можно оставить пустым
end;

зы при испильзовании этого кода, в откомпилированном приложении ошибки не вылетают, однако при запуске из делфы - оная информирует об их наличии.

[Nowichok]

ага..поступил, как предложили - стал сначала выгружать хук при выгрузке самой библиотеки. В Delphi перестала вылетать ошибка -кул. Но эт не всё.
Обнаружилось, что при выходе из основной программы, она выгружает из своего АП библиотеку...а в других процессаах она висит..это вполне могло быть всему причиной.

Я не понимаю...как ваще доходит до других процессов, что основная прога выгружена, и надо выгрузить из своего АП библиотеку ?? ...я выгружаю библиотеку из основной программы..а как до других программ доходит, что после этого нужно выгрузить и у себя её ? ??
Может выгружаю неправильно....при выходе из самой программы

 procedure TChange_Volume.FormClose(Sender: TObject; var Action: TCloseAction);
begin
freelibrary(hinstdll);
ExitProcess(0); //по идее и не нужно..но для верности
end;

из других процессов библиотека не выгружается....т.е. нету сигнала о том, чтобы они выгрузили библиотеку....

[rpy3uH]

чей пускай висит в другихпроцессах жалко что ли
главное что бы она перестала хук обрабатывать

[Nowichok]

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

ага..поступил, как предложили - стал сначала выгружать хук при выгрузке самой библиотеки.

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

[Drop]

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

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

чет я наверно торможу... каким образом она попадает в другие поцессы, если ты загружаешь ее только в свое приложение?

[Nowichok]

хмм...с этим сам слабо разобрался. Глобальный хук ставится на все процессы, хук должен ОБЯЗАТЕЛЬНО быть описан в библиотеке. А каким образом он грузится в процесс - мне не низвестно. Создал новую ветку по этой тематике в разделе Delphi->Общее (вроде)