Текущий архив: 2003.01.06;
Скачать: CL | DM;

Вниз

wm_close   Найти похожие ветки 

← →
бобёр   (2002-12-24 11:07) [0]

В следующей конструкции дельфи ругается на undeclared identifier wm_close. Шо не так?

program Project1;

uses
Forms,windows,
Unit1 in "Unit1.pas" {Form1},
login in "login.pas" {password},
Unit2 in "Unit2.pas" {Form2},
tools in "tools.pas" {Form3};

{$R *.res}
var wnd:hWnd;
begin
Wnd:=Findwindow("TfrmMain","Project1");
if Wnd<>0 then PostMessage(Wnd,WM_CLOSE,0,0);
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(Tpassword, password);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.Run;
end.

---

← →
ZrenBy ©   (2002-12-24 11:09) [1]

uses Messages

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.06;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c