imei.dpr

根据箱号

program IMEI;

uses
  Forms,
  SysUtils,
  Windows,
  Cmain in 'Cmain.pas' {main},
  Cmodel in 'Cmodel.pas' {model},
  Cdata in 'Cdata.pas' {Data: TDataModule},
  Clogin in 'Clogin.pas' {login},
  Cwxh in 'Cwxh.pas' {wxh},
  Cf0ch in 'Cf0ch.pas' {f0ch},
  Ccxsc in 'Ccxsc.pas' {cxsc},
  Cmessage in 'Cmessage.pas' {message},
  cabout in 'cabout.pas' {about},
  Cxlt in 'Cxlt.pas' {xlt},
  Cyxh in 'Cyxh.pas' {yxh},
  mmxgC in 'mmxgC.pas' {mmxg},
  sumsjplC in 'sumsjplC.pas' {sumsjpl},
  Csjtp in 'Csjtp.pas' {sjtp},
  login_DC in 'login_DC.pas' {login_d};

Var
  Fn : String;
  TSI : TStartupInfo;
  TPI : TProcessInformation;   
{$R *.res}

begin
  IF FileAge('\\Ptacliu\新建文件夹\手机销售管理系统\IMEI.exe')>FileAge(ParamStr(0)) THEN
  IF Application.MessageBox('系统发现升级程序，请进行升级！', '系统提示!',mb_okcancel)=id_ok THEN
       begin
         Fn:= ExtractFilePath(ParamStr(0))+'Update.exe';
   //    FillChar(TSI, SizeOf(TSI),0);
    //   TSI.CB := SizeOf(TSI);
        IF CreateProcess (PChar(Fn), NIL, NIL, NIL, False,DETACHED_PROCESS, NIL, NIL, TSI, TPI) THEN Exit
      end
  else
   Begin
    exit;
   End;
  Application.Initialize;
  Application.Title := '手机销售管理系统〖2006版〗';
  Application.CreateForm(Tmain, main);
  Application.CreateForm(TData, Data);
  Application.CreateForm(Tlogin, login);
 // application.ShowMainForm:=false;
//  application.OnMinimize:=main.f
  Application.Run;
end.