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

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