我用Delphi7写的贷款台账转换工具



Application.Initialize;

  {添加避免二次运行代码}

   application.title:='贷款台账转换';

   createmutex(nil,false,'贷款台账转换');

   if (getlasterror()=ERROR_ALREADY_EXISTS) then

     begin

       application.MessageBox('该程序已经运行,请不要再次启动','提示',mb_ok);

       exit;

     end;

  {添加结束}

  Application.CreateForm(TForm1, Form1);

  Application.CreateForm(TForm2, Form2);

  Application.Run;


最新回复 (0)
返回