[BIG_BO]

задание: запущено два окна Exel и Word, создать прогу которая закрывает второе окно через 10 сек. если закрыли первое. Помогите реализовать

[lmikle]

FindWindow, 2 таймера. Один таймер проверяет, что окна есть. Как только одно из них пропало, то первый таймер останавливается, а второй запускается и через 10 сек. убивает второе окно. Да, можно все уложить и в один таймер, но код будет непонятнее.

[BIG_BO]

хотелось бы кодом а то не совсем ясно

[m1sclick]

Вот тебе маленький пример - закрываю окно "Мой компьютер":
На форме две кнопки и Edit:

PHP код:

var
  i: HWND;   // Переменная для хранения хэндла

procedure TForm1.Button1Click(Sender: TObject);
begin
  i:= FindWindow(nil, 'Мой компьютер'); // Нахожу хэндл окна
  Edit1.Text:=inttostr(i); // Вывожу в Edit
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  PostMessage(i, WM_CLOSE, 0, 0);  // Закрваю окно с указаным хэндлом
end; 


Тебе осталось организовать это все как подсказал товарищ выше.
Подскажу: если окно не будет найдено переменная i будет равна 0.

[BIG_BO]

в вин айпи только все это дело надо провернуть вот проьлема

[angvelem]

В чём проблема? Вот костяк:

Код:

program Project1;

uses
  Windows, Messages;

const
  szAppName     = 'project1';
  szCaptionName = 'project1';

var
  Window        : HWND;
  Msg           : TMsg;
  WndClass      : TWndClassEX;
  PosX, PosY    : Integer;
  SizeX, SizeY  : Integer;

const
  cctrl         = 'comctl32.dll';

procedure InitCommonControls; external cctrl name 'InitCommonControls';

//---------------------------------------------------------

procedure InitApp(Wnd : HWND);
begin
end;

//---------------------------------------------------------

procedure DeInitApp(Wnd : HWND);
begin
end;

//---------------------------------------------------------

function MainProc(Wnd : HWND; Msg : Integer; wParam, lParam : Longint): Integer; stdcall;
begin
  Result := 0;

  case Msg of
    WM_CREATE :
    begin
      InitApp(Wnd);
    end;

    WM_CLOSE :
    begin
      DestroyWindow(Wnd);
    end;

    WM_DESTROY :
    begin
      DeInitApp(Wnd);
      PostQuitMessage(0);
      Exit;
    end;
  end;
  Result := DefWindowProc(Wnd, Msg, wParam, lParam);
end;

//---------------------------------------------------------

begin
  SizeX := 300;
  SizeY := 200;

  PosX := 0;
  PosY := 0;

  FillChar(WndClass, SizeOf(TWndClassEx), 0);
  WndClass.cbSize        := SizeOf(TWndClassEx);
  WndClass.style         := CS_HREDRAW or CS_VREDRAW;
  WndClass.lpfnWndProc   := @MainProc;
  WndClass.cbClsExtra    := 0;
  WndClass.cbWndExtra    := 0;
  WndClass.hInstance     := hInstance;
  WndClass.hCursor       := LoadCursor(0, IDC_ARROW);
  WndClass.hbrBackGround := GetSysColorBrush(COLOR_BTNFACE);
  WndClass.lpszClassName := szAppName;

  if RegisterClassEx(WndClass) = 0 then
    Halt(255);

  Window := CreateWindowEx(0, szAppName, szCaptionName,
                        WS_OVERLAPPEDWINDOW,
                        PosX, PosY, SizeX, SizeY, 0, 0, hInstance, NIL);

  InitCommonControls;
  ShowWindow(Window, CmdShow);

  while(GetMessage(Msg, 0, 0, 0)) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
  Halt(Msg.wParam);
end.

осталось добавить кнопки.

[BIG_BO]

Код:

procedure asd (wnd:hwnd);
var
win:hwnd;
begin
win:= FindWindow(nil, 'Gamse');
PostMessage(win, WM_CLOSE, 0, 0);
end;

lmikle: пользуемся тегами!!!

вот добавил. окно с хендлом Gamse не закрывет

[angvelem]

Значит не найдено такое окно.