線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1814
推到 Plurk!
推到 Facebook!

限制程序执行一次的新问题

答題得分者是:hagar
dwx
一般會員


發表:1
回覆:1
積分:0
註冊:2002-11-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-12-09 14:25:47 IP:218.104.xxx.xxx 未訂閱
大家好,我今日遇到一个问题,找遍好多网络仍无答案,希望各位指教 我写了一project1.exe的程序,我想只让它运行一次,判断是否已经运行 并给出提示道是会了,可是如何在检测到project2.exe已经运行时把先前 运行的画面重新调出来呢?
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-12-09 15:30:02 IP:202.39.xxx.xxx 未訂閱
var hWnd: Integer;    begin
  hWnd := FindWindow('TApplication', PChar('Project1.Exe'));
  if hWnd <> 0 then begin
    if IsIconic(hWnd) then
      ShowWindow(hWnd, SW_RESTORE)
    else
      SetForegroundWindow(hWnd);
    Exit;
  end;
  Application.Initialize;
  Application.Title := 'Project1.Exe';
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.
-- Everything I say is a lie.
dwx
一般會員


發表:1
回覆:1
積分:0
註冊:2002-11-20

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-12-10 07:28:45 IP:218.104.xxx.xxx 未訂閱
非常感谢你热情的回答,我昨晚试了以下,真的very good! 小弟再次感谢你的帮助!
系統時間:2024-03-28 20:06:59
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!