给定一个程序文件名，如果已经在运行，则直接将控制转过去，否则运行之(100分)

憨憨 · 2002-10-03

如何实现？

louhong · 2002-10-03

这就是"only one"的问题嘛，用这个1k的小东东就解决了： http://www.utilmind.com/delphi/justone.zip 其实好多大的控件包里都有类似的东东。

憨憨 · 2002-10-03

感谢louhong的回复。 不过，我的意思是执行外部程序，给定任意一个程序的文件名，首先检查是否已经运行， 如果已经运行就直接转过去，否则就运行它。

Shuzi · 2002-10-03

通知我一下

ty_unix · 2002-10-03

procedure TfmMain.FormCreate(Sender: TObject); const    csForm='aaa'; begin   if HasExecutingInstance(csForm) then   begin     showmessage('程序已经运行！');     Application.Terminate;   end; end; function TfmMain.HasExecutingInstance(InstanceName: string): boolean; var    MutexHandle: THandle; begin   MutexHandle:=CreateMutex(nil, false, PChar(InstanceName));   Result:=GetLastError <> 0; end;

憨憨 · 2002-10-03

还是不行啊 我要执行的外部程序是任意的，而且可以由我的程序启动，也可以由用户以其它任何方式启动， 我只要发现已经运行了，就把它的窗口调到前面来，如果没有运行，我的程序就启动这个程序 例如，Windows的画图程序MSPAINT.EXE，用户可以从Windows开始菜单的附件中启动，所以用 CreateMutex不能发现已经运行了

杰克 · 2002-10-03

解决方法发过去了，看见没？

憨憨 · 2002-10-04

杰克: ????

jsxjd · 2002-10-04

枚举进程，然后从进程获得文件名进行比较。

憨憨 · 2002-10-07

实际上，我就是这样处理的： 首先枚举进程确定是否已运行，并获得进程ID； 然后再枚举窗口，对每个窗口调用GetWindowThreadProcessId获得窗口所属进程ID，从而取得进程的窗口； 最后调用SetForegroundWindow将控制转过去。 但是，我的上司（也是一个蛮厉害的程序员）说太麻烦了，应该有更直接更简单的方法，我也希望有个什么API可以直接实现这一功能。 另外，还存在一个问题，SetForegroundWindow后，窗口是被带到前面来了，但好像没有获得焦点似的，窗口标题颜色没有变成活动窗口的颜色，不知是为什么。

小雨哥 · 2002-10-08

1.您可以直接向上司请教,或许他和 user.exe 关系特别好也难说. 2.您可以再发送一个窗口活动消息

憨憨 · 2002-10-08

to 小雨哥: 1.他要是知道就告诉我了 2.试过了还是不行

yuki2003 · 2002-12-03

//执行外部程序，给定任意一个程序的文件名，首先检查是否已经运行 这样行不行，如果这个程序不是被别的程序占用，而且已经运行了。 应该不可以改名字吧。 不能改名字的，就运行算了

yanghai0437 · 2002-12-03

yuki2003的注意可以，首先最好判断指定的文件是否存在

jsxjd · 2002-12-04

看了以下程序你就明白了！！！！！！！！ 85. 获得进程列表，并终止 Excel 进程 procedure TForm1.Button1Click(Sender: TObject); var   FSnapshotHandle:THandle;   FProcessEntry32:TProcessEntry32;   Ret : BOOL;   ProcessID : integer;   s:string; begin   FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);   Ret:=Process32First(FSnapshotHandle,FProcessEntry32);   Memo1.clear;   while Ret do   begin     Memo1.lines.add(FProcessEntry32.szExeFile);     s:=ExtractFileName(FProcessEntry32.szExeFile);     if s='EXCEL.EXE' then     begin       ProcessID:=FProcessEntry32.th32ProcessID;       TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,ProcessID),1);       s:='';     end;     Ret:=Process32Next(FSnapshotHandle,FProcessEntry32);   end; end;

憨憨 · 2002-12-05

看来没有什么更直接的办法了

kenny.hu · 2003-04-10

function isfileinuse(fn:string):boolean; var hfileres:hfile; begin result:=false; if not fileexitsts(fn) then exit; hfileres:=createfile(pchar(fn),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); result:=(hfileres=INVALID_HANDLE_VALUE); if not result then closehandle(hfileres); end;

ike · 2003-04-10

给定一个程序文件名，如果已经在运行，则直接将控制转过去，否则运行之(100分)

憨憨

Unregistered / Unconfirmed

louhong

Unregistered / Unconfirmed

憨憨

Unregistered / Unconfirmed

Shuzi

Unregistered / Unconfirmed

ty_unix

Unregistered / Unconfirmed

憨憨

Unregistered / Unconfirmed

杰克

Unregistered / Unconfirmed

憨憨

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

憨憨

Unregistered / Unconfirmed

小雨哥

Unregistered / Unconfirmed

憨憨

Unregistered / Unconfirmed

yuki2003

Unregistered / Unconfirmed

yanghai0437

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

憨憨

Unregistered / Unconfirmed

kenny.hu

Unregistered / Unconfirmed

ike

Unregistered / Unconfirmed

Similar threads