Убедиться, что приложение (окно) не отвечаетDelphi , Программа и Интерфейс , Приложения чужиеУбедиться, что приложение (окно) не отвечает
Оформил: DeeCo // The Documented way { An application can check if a window is responding to messages by sending the WM_NULL message with the SendMessageTimeout function. Um zu uberprufen, ob ein anderes Fenster (Anwendung) noch reagiert, kann man ihr mit der SendMessageTimeout() API eine WM_NULL Nachricht schicken. } function AppIsResponding(ClassName: string): Boolean; const { Specifies the duration, in milliseconds, of the time-out period } TIMEOUT = 50; var Res: DWORD; h: HWND; begin h := FindWindow(PChar(ClassName), nil); if h <> 0 then Result := SendMessageTimeOut(H, WM_NULL, 0, 0, SMTO_NORMAL or SMTO_ABORTIFHUNG, TIMEOUT, Res) <> 0 else ShowMessage(Format('%s not found!', [ClassName])); end; procedure TForm1.Button1Click(Sender: TObject); begin if AppIsResponding('OpusApp') then { OpusApp is the Class Name of WINWORD } ShowMessage('App. responding'); end; Статья Убедиться, что приложение (окно) не отвечает раздела Программа и Интерфейс Приложения чужие может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Приложения чужие ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |