psmstartupcfg.dpr

来自「防火墙DELPHI代码 防火墙DELPHI代码」· DPR 代码 · 共 34 行

//PSMStartupCfg.pas: Main app
//(C) 2003 PSMKorea, http://www.psmkorea.co.kr
//Written by DoDucTruong, [e-mail]

program PSMStartupCfg;

uses
  Forms,
  Graphics,
  Windows,
  frmMainUnit in 'frmMainUnit.pas' {frmMain},
  u_svc in 'U_SVC.PAS',
  getver in 'GETVER.PAS';

{$R *.res}

var preW:HWND;
begin
  preW:=FindWindow('TfrmMain','Startup Config for Windows9x/NT/2000/XP - (C) 2003 PSMKorea');
  if preW<>0 then
  begin
    ShowWindow(preW,SW_SHOW);
    SetWindowPos(preW,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE Or SWP_NOSIZE);
  end
  else
  begin
    Application.Initialize;
    TheIcon:=TIcon.create;
    Application.CreateForm(TfrmMain, frmMain);
    frmMain.caption:='Startup Config for Windows9x/NT/2000/XP - (C) 2003 PSMKorea';
    Application.Run;
  end;
end.