service kill

Hej,
Jeg har en service der hele tiden tjekker hvor mange sekunder servicen har været åben.
Når den har talt til 60 minutter, skal den lukke iexplore servicen. hvordan kan koden der lukker iexplore, se ud?

mvh
Lars

[Redigeret d. 11/01-06 11:26:22 af Lars Jensen]

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  hIExplorer: HWND;
begin
  hIExplorer := FindWindow('IEFrame', nil);
  if hIExplorer <> 0 then
  begin
    // Close IE:
    SendMessage(hIExplorer, WM_SYSCOMMAND, SC_CLOSE, 0);
 end;
end;

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  hIExplorer: HWND;
begin
  hIExplorer := FindWindow('IEFrame', nil);
  if hIExplorer <> 0 then
  begin
    // Minimize IE:
    SendMessage(hIExplorer, WM_SYSCOMMAND, SC_MINIMIZE, 0);
 end;
end;

Hej,
Jeg har en service der hele tiden tjekker hvor mange sekunder servicen har været åben.
Når den har talt til 60 minutter, skal den lukke iexplore servicen. hvordan kan koden der lukker iexplore, se ud?

mvh
Lars

[Redigeret d. 11/01-06 11:26:22 af Lars Jensen]

Hej...

Måske denne her:

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  hIExplorer: HWND;
begin
  hIExplorer := FindWindow('IEFrame', nil);
  if hIExplorer <> 0 then
  begin
    // Close IE:
    SendMessage(hIExplorer, WM_SYSCOMMAND, SC_CLOSE, 0);
 end;
end;

Og en lille ting ekstra, hvis bare ville minimer IE:

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  hIExplorer: HWND;
begin
  hIExplorer := FindWindow('IEFrame', nil);
  if hIExplorer <> 0 then
  begin
    // Minimize IE:
    SendMessage(hIExplorer, WM_SYSCOMMAND, SC_MINIMIZE, 0);
 end;
end;

Håber du kan bruge det!

Det virker jo som det skal
kan du evt. vise mig hvordan man kan lukke alle iexplore?

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  IExplorer, Prev: THandle;
begin
  prev:=0;
  IExplorer:=FindWindow('IEFrame', nil);
  while (IExplorer<>0)and(IExplorer<>Prev) do
  begin
    SendMessage(IExplorer, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    Prev:=IExplorer;
    IExplorer:=FindWindow('IEFrame', nil);
  end;
end;

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  IExplorer, Prev: THandle;
begin
  prev:=0;
  IExplorer:=FindWindow('IEFrame', nil);
  while (IExplorer<>0)and(IExplorer<>Prev) do
  begin
    SendMessage(IExplorer, WM_SYSCOMMAND, SC_CLOSE, 0);
    Prev:=IExplorer;
    IExplorer:=FindWindow('IEFrame', nil);
  end;
end;