[BIG_BO]

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

[BIG_BO]

вот сделал, одно окно выводит а что дальше

[angvelem]

Выводить то может и выводит, но уж больно много ляпов в коде. Второе окно можно вывести строкой:

Код:

  CreateDialog(hInstance, MAKEINTRESOURCE(MYDLG), Wnd, @MyDialogFunc);

где MYDLG - идентификатор окна прописанного в ресурсном файле, а MyDialogFunc оконная процедура этого диалогового окна. Данная функция (CreateDialog) выводит не модальное окно и при закрытии главного, закрывается автоматически.

[BIG_BO]

CreateDialog(hInstance, MAKEINTRESOURCE(WinHandle), hWnd, @MyWndProc);
вот написал, запускается просто одно окно

[NumLock]

добавь еще один блок:

Код:

  WinHandle:=CreateWindow(WndClass.lpszClassName,'the hello win',ws_overlappedwindow,
  cw_usedefault, cw_usedefault, cw_usedefault, cw_usedefault, 0, 0, Hinstance,
  nil);
  ShowWindow(WinHandle, sw_show);
  UpdateWindow(WinHandle);

после:

Код:

  ShowWindow(WinHandle, sw_show);
  UpdateWindow(winHandle);

[BIG_BO]

Спасибо =) завтра буду пробовать защищать)

[NumLock]

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

завтра буду пробовать защищать

только, как уже сказал angvelem, ляпов там достаточно...

[BIG_BO]

Не правильно. Это не два процесса а два окна. чорт

[angvelem]

Используй "нить".

[BIG_BO]

не понял, что за нить

[angvelem]

Берём словарь, смотрим:
Нить - Thread
далее используем функцию CreateThread.

Код:

var
  hPreLoad	: HWND;			// переменные для создания нити
  Dummy		: DWORD;
  hThread	: HWND;
...
function PreLoadDialogProc(hWndDlg : HWND; Msg : Longint; wParam, lParam : Longint) : Integer; stdcall;
begin
  Result := 1;

  case Msg of
    WM_INITDIALOG : 
    begin
      hPreLoad := hWndDlg;
    end;

    WM_CLOSE :  EndDialog(hWndDlg, ord(True));
  end;
end;
...
  hThread := CreateThread(NIL, 0, @PreLoadDialogThread, NIL, 0, Dummy);
...
  // закрывем окно предзагрузки  
  SendMessage(hPreLoad, WM_COMMAND, IDOK, 0);

  if hThread <> 0 then
  begin
    WaitForSingleObject(hThread, INFINITE);
    CloseHandle(hThread);
  end;

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

[NumLock]

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

Не правильно. Это не два процесса а два окна. чорт

два окна и требовалось:

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

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

[BIG_BO]

ну да это я сначала так задание понял, когда пришел сказал мне что два окна это не два процесса(

[NumLock]

Код:

program CreateWindowAPI;

uses
  Windows, Messages;

var
  AWndClass: WNDCLASS;
  AWnd: HWND;
  AMsg: TMsg;

function WindowProc(AWnd: HWND; Msg: Integer;
  wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
begin
  case Msg of
    WM_CLOSE: begin
      PostQuitMessage(0);
      Result:=0;
    end;
    else Result:=DefWindowProc(AWnd, Msg, wParam, lParam);
  end
end;

begin
  AWndClass.Style:=CS_HREDRAW or CS_VREDRAW;
  AWndClass.lpfnWndProc:=@WindowProc;
  AWndClass.cbClsExtra:=0;
  AWndClass.cbWndExtra:=0;
  AWndClass.hInstance:=HInstance;
  AWndClass.hIcon:=0;
  AWndClass.hCursor:=LoadCursor(0, IDC_ARROW);
  AWndClass.hbrBackground:=HBRUSH(COLOR_WINDOW);
  AWndClass.lpszMenuName:=nil;
  AWndClass.lpszClassName:='TWINAPIFORM';
  RegisterClass(AWndClass);
  AWnd:=CreateWindowEx(0, AWndClass.lpszClassName, AWndClass.lpszClassName,
    WS_OVERLAPPEDWINDOW,
    Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
    320, 240,
    0, 0, HInstance, nil);
  ShowWindow(AWnd, SW_SHOWNORMAL);
  UpdateWindow(AWnd);
  while GetMessage(AMsg, 0, 0, 0) do
  begin
    TranslateMessage(AMsg);
    DispatchMessage(AMsg);
  end;
  DestroyWindow(AWnd);
  UnregisterClass(AWndClass.lpszClassName, HInstance);
  AWnd:=FindWindow(AWndClass.lpszClassName, AWndClass.lpszClassName);
  if AWnd<>0 then SendMessage(AWnd, WM_CLOSE, 0, 0);
end.

[BIG_BO]

поясни плз