我在工程文件中添加如下if语句:if Findwindow('Tapplication','窗口监控')=0 then
begin
application.Initialize;
Application.Title:='窗口监控';
Application.ShowMainForm:=False;//将窗口设置为隐藏
Application.MainFormOnTaskbar := True;
Application.CreateForm(TTKill_Form, TKill_Form);
Application.Run;
end.会出现以下错误:
[DCC Error] Project1.dpr(8): E2029 Declaration expected but 'IF' found请问是什么原因呢
begin
application.Initialize;
Application.Title:='窗口监控';
Application.ShowMainForm:=False;//将窗口设置为隐藏
Application.MainFormOnTaskbar := True;
Application.CreateForm(TTKill_Form, TKill_Form);
Application.Run;
end.会出现以下错误:
[DCC Error] Project1.dpr(8): E2029 Declaration expected but 'IF' found请问是什么原因呢
Forms,
Close_Windows in 'Close_Windows.pas' {TKill_Form};
{$R *.res}if Findwindow('Tapplication','窗口监控')=0 then
begin
application.Initialize;
Application.Title:='窗口监控';
Application.ShowMainForm:=False;//将窗口设置为隐藏
Application.MainFormOnTaskbar := True;
Application.CreateForm(TTKill_Form, TKill_Form);
Application.Run;
end.这是所有代码
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {DataModule2: TDataModule};{$R *.res}begin
if 1=1 then
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TDataModule2, DataModule2);
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.这样没有任何问题。编译通过。
uses
windows,
forms,......
end.