首页 相关文章 关于程序只运行一次的问题

关于程序只运行一次的问题

  //从论坛上copy来,事先自己并未验证

  引用秋风兄的代码:
   Application.Title := 'PerRecord';
   Application.Initialize;
   mHandle := Windows.CreateMutex(nil, true, 'PerRecord');
   if mHandle 0 then
   begin
   if GetLastError = Windows.ERROR_ALREADY_EXISTS then
   begin
   fHandle := FindWindow('TfrmLogin', nil);
   if fHandle = 0 then
   fHandle := FindWindow('TfrmPer', nil);
   if fHandle 0 then
   begin
   ShowWindow(fHandle, SW_SHOW);...[ 查看全文 ]

2016-02-19 标签:

关于程序只运行一次的问题的相关文章

手机页面
收藏网站 回到头部