各位先進大大，小弟想用"ShellExecute" 或 "WinExec" 打開"小畫家"的程式，若小畫家程式未打開就將它打開(這兩個函數均可達到)，若小畫家程式已打開，只是在下層，則將它顯示在最上層，非再開啟一個新的小畫家程式。 我目前是用API寫了一堆搜尋程式是否已開啟小畫家的程式，但覺得很沒效率，應該有函數可以做出"開啟新的小畫家程式"或"呼叫出已開啟的小畫家程式"的功能吧??? 如何做呢???

Hi TommyLi0913 你好:

procedure TForm1.Button1Click(Sender: TObject);
var MyHandle : THandle;
begin
   MyHandle := FindWindow(nil,'未命名 - 小畫家');
   if MyHandle <> 0 then begin
      //BringWindowToTop(MyHandle);
      ShowWindow(MyHandle, SW_SHOW);
   end
   else begin
      WinExec(PChar('mspaint.exe'), SW_SHOW);
   end;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

tommyli0913 您好 : 如果是你自己寫的程式內要控制只開啟一次只執行某一個程式 ... 那可以紀錄 ShellExecute 或 WinExec 產生的 Window handle ,然後透過 handle 可以判別是否結束,若結束了才啟動新的程式,若沒有結束,就 Send Message .. ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----

引言: 那可以紀錄 ShellExecute 或 WinExec 產生的 Window handle ,然後透過 handle 可以判別是否結束,若結束了才啟動新的程式,若沒有結束,就 Send Message ..

對不起, 純討論. 據我所知,

各位先進大大，您們好： 其實目前我也是用Window handle 去判斷程式是否存在，跟Miles大大是雷同的，而我是用"SetWindowPos" 函數去呼叫的，一開始想說就將就這用，但卻發現一個bug，即當小畫家程式顯示在最上層再給他最小化後，從此就無法將小畫家程式呼叫出來了，必須將我的程式重新執行，才能將小畫家程式再次呼叫出。(這裡若小畫家程式是沒執行的，是都可以working的)，所以才想看看有何種簡單又可正常執行的函數來使用。 我的程式如下： procedure TForm1.Button1Click(Sender: TObject); var Hw : THandle; begin Hw:= FindWindow(nil,'未命名 - 小畫家'); if Hw <> 0 then SetWindowPos(MyHandle, HWND_TOP, 0, 0, 0, 0, 3) else ShellExecute(Application.Handle, 'open','mspaint.exe',nil, nil, SW_ShowNormal ); end;

引言: 各位先進大大，您們好： 其實目前我也是用Window handle 去判斷程式是否存在，跟Miles大大是雷同的，而我是用"SetWindowPos" 函數去呼叫的，一開始想說就將就這用，但卻發現一個bug，即當小畫家程式顯示在最上層再給他最小化後，從此就無法將小畫家程式呼叫出來了，必須將我的程式重新執行，才能將小畫家程式再次呼叫出。(這裡若小畫家程式是沒執行的，是都可以working的)，所以才想看看有何種簡單又可正常執行的函數來使用。 我的程式如下：

procedure TForm1.Button1Click(Sender: TObject);
var Hw : THandle;
begin
  Hw:= FindWindow(nil,'未命名 - 小畫家');
  if Hw <> 0 then
     begin
       SetWindowPos(Hw, HWND_TOP, 0, 0, 0, 0, 3);
       if IsIconic(hW) then//如果最小化，將它打開
          ShowWindow(hW, SW_RESTORE)
     end
  else
    ShellExecute(Application.Handle, 'open','mspaint.exe',nil, nil, SW_ShowNormal );
end;

tommyli0913您好：试试看 ——行径窄处，留一步与人行—— ——

这个对您的问题有效哦< >< > 如何获取自己在程序中运行的外部EXE的Handle? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35055 风花雪月 e梦情缘 网络代号:wnhoo or sos_admin 网名:e梦缘 Mail:wnhoo@163.com

引言:

引言: 那可以紀錄 ShellExecute 或 WinExec 產生的 Window handle ,然後透過 handle 可以判別是否結束,若結束了才啟動新的程式,若沒有結束,就 Send Message ..

對不起, 純討論. 據我所知, >< face="Verdana, Arial, Helvetica"> 汗顏,仔細查了一下

看來好像沒有比較簡便的方式了，不過deity先進大大有解決我目前程式的Bug。謝謝各位先進大大的指導，thank you!!