isafer.dpr

来自「PSM firewall code(DELPHI)」· DPR 代码 · 共 45 行

program iSafer;

uses
  Forms,
  Windows,
  Messages,
  SysUtils,
  iSafer_Main in 'iSafer_Main.pas' {Form_Main},
  iSafer_Resource in 'iSafer_Resource.pas' {Form_Resource},
  iSafer_Option in 'iSafer_Option.pas' {Form_Option},
  iSafer_FWRule in 'iSafer_FWRule.pas' {Form_FWRule},
  PSMFWRule in 'PSMFWRule.pas',
  PSMFWLog in 'PSMFWLog.pas',
  FWDebug in 'FWDebug.pas' {DebugFW},
  ISaferAbout in 'ISaferAbout.pas' {ISaferAboutDlg},
  CheckForNewVersion in 'CheckForNewVersion.pas';

{$R *.res}

var appW:HWND;//DDT 20040326
begin
  Application.Initialize;

  //DDT 20040326
  appW:=FindWindow('TForm_Main','iSafer - Main');
  if appW>0 then begin
    SendMessage(appW,WM_USER+10,0,0);
    Halt(0);
  end;
  //DDT END

  Application.Title := 'iSafer - PSMKorea';
  ChDir(ExtractFilePath(Application.ExeName));
  Application.CreateForm(TForm_Main, Form_Main);
  Form_Main.Caption:='iSafer - Main';
  Application.CreateForm(TForm_Resource, Form_Resource);
  Application.CreateForm(TForm_Option, Form_Option);
  Application.CreateForm(TForm_FWRule, Form_FWRule);
  Application.CreateForm(TISaferAboutDlg, ISaferAboutDlg);
  //Set parameters for debugging
  

  Application.Run;
end.