Windows yanıt veriyormu?

[Muhendiker]

Selamun Aleykum arkadaşlar..
Forumda arama yapıyım dedim ama arama bölümüne derdimi anlatamadım sanırım:)
Ben programımda belli aralıklarla Windows u kontrol etmek istiyorum..acaba yanıt veriyormu vermiyormu diye..Eğer yanıt vermiyorsa restart yaptırcam..Restart yapmada bi sorun yok ama ben Windows u neye göre kontrol ettirecem? bu konuda yardımcı olursanız sevinirimm..

(Windows XP kullanıyorum)

Kolay gelsin....

[aslangeri]

s.a.
eğer windows yanıt vermiyorsa sizin programa nasıl yanıt verecek bunu düşündünüz mü?

[Muhendiker]

A.s Hocam
Bende aslında onu düşünüyorum.Şöyle anlatıyım mesela bazen masaüstü kitlendiğinde görev yöneticisinden explorer.exe yi sonlandırıyoruz ve tekrar çalıştırdığımızda masaüstü tazelenmiş oluyor..burda explorer.exe nin yanıt verip vermediğini nasıl anlarız?? bu şekilde windows un bazı uygulamalarının kontrolünü yapabilirmiyiz?

[ikutluay]

Arkadaşlar lütfen soru ve cevap haricinde yazmayalım, birbirine sataşma şeklinde tartışmalara girmeyelim. Diğer mesajlar silinmiştir - rsimsek

bunu incelemekte fayda var

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComObj, StdCtrls;

type
  TForm1 = class(TForm)
    btnLaunch: TButton;
    btnCheck: TButton;
    btnKill: TButton;
    procedure btnLaunchClick(Sender: TObject);
    procedure btnCheckClick(Sender: TObject);
    procedure btnKillClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    modObjIE : OLEVariant;
    modlngWndIE : THandle;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.btnLaunchClick(Sender: TObject);
begin
  modObjIE := CreateOleObject('InternetExplorer.Application');
  modObjIE.Visible := true;
  modObjIE.Navigate2('http://www.borland.com');
  modlngWndIE := modObjIE.hwnd;
end;

procedure TForm1.btnCheckClick(Sender: TObject);
var
 dwResult : DWORD;
 lngReturnValue : longint;
begin
   lngReturnValue := SendMessageTimeout(modlngWndIE, WM_NULL, 0,
      0, SMTO_ABORTIFHUNG OR SMTO_BLOCK, 1000, dwResult);
    If lngReturnValue > 0 then
        ShowMessage('Responding')
    Else
        ShowMessage('Not Responding');
end;



procedure TForm1.btnKillClick(Sender: TObject);
var
 ProcessID : DWORD;
 Process : THandle;
begin
  GetWindowThreadProcessId(modlngWndIE, @ProcessID);
  Process := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID);
  TerminateProcess(Process, 0);
end;

end.


Although the code is written for Internet Explorer, the idea can be used for other applications as well.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
 H : THandle;
 lngReturnValue : longint;
 DWResult : DWORD;
begin
 H := FindWindow('Notepad', nil);
 if H > 0 then
  begin
    lngReturnValue := SendMessageTimeout(H, WM_NULL, 0,
      0, SMTO_ABORTIFHUNG And SMTO_BLOCK, 1000, DWResult);
    if lngReturnValue > 0 then
     ShowMessage('Responding')
      else
       ShowMessage('Not responding');
  end
   else
     ShowMessage('Application not found');
end;

end.

[Muhendiker]

Arkadaşlar lütfen soru ve cevap haricinde yazmayalım, birbirine sataşma şeklinde tartışmalara girmeyelim. Diğer mesajlar silinmiştir - rsimsek

Teşekkürler.

[barutali]

bu programı ne amaçlı kullancaksınız acaba sadece merakımdan soruyorum

[Muhendiker]

Bazı uygulamalar yanıt vermediğinde (donduğunda) pc ye restart yaptırarak, programın kaldığı yerden çalışmasına devam etmesi için.

Hayırlı teskereler..

[conari]

Sorular ile sizi yormayalım ama. restart ettiğinizde program nasıl kaldığı yerden devam edecek, ayrıca XP daha dogrusu NT tabanlı sistemler de Kullanıcı girişi gerekirse v.s. program zaten çalışamazki.

Bu arada @Lanetli sanada şimdiden hayırlı teskereler. Jandarma olmak biraz daha zordur herhalde.

[Muhendiker]

@conari, program Kiosk da çalışacak ve açılışta herhangi bi kullanıcı girişi yok.devam etme işi ise gerekli değerleri ini ye yazdırıp açılışta okutturuyorum.. anlaşılmıştır sanırım.

Saygılar

[sadettinpolat]

belirli bi programiin kilitlenip kilitlenmedigini anlamak

http://users.telenet.be/ws36637/response.html

daha fazlasi icin

detect windows responding determine kelimeleri ile google uzerinde deneme yapabilirsin

[Muhendiker]

@sadettinpolat hocam çok sağolun..


Saygılar

[barutali]

@Muhendiker açıklamanız için teşekkür ederim .

Bu arada çok saolun
Galiba şöför yapcaklar beni