Delphi控件源码

开发平台：

Delphi

iSafer.dpr：源码内容

							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};
{$R *.res}
var appW:HWND;//DDT 20040326
begin
  Application.Initialize;
  //DDT 20040326
  appW:=FindWindow('TForm_Main','iSafer');
  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);
  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.

						