我在工程文件中添加如下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请问是什么原因呢

解决方案 »

  1.   

    program Project1;uses
      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.这是所有代码
      

  2.   


    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.这样没有任何问题。编译通过。
      

  3.   

    加上对windows的调用
    uses 
    windows,
    forms,......
      

  4.   

    少了BEING
        end.
      

  5.   

    确实缺少了begin end. 还有uses里的windows 谢谢大家了