如何判断其他程序是否已经运行(50分)

bigfacefox1 · 2006-04-13

各位大虾:   请告诉小弟以下如何判断其他程序是否已经运行,多谢多谢!

yuzk2005 · 2006-04-13

if FindWindow(nil,'XXXX')<>0 then   showmessage('XXXX已运行');

babibean · 2006-04-13

var  hMutex: HWND;  Ret: Integer; {$R *.RES} begin  hMutex := CreateMutex(nil, False, PChar('这是我的程序'));  try    Ret := GetLastError;    if Ret = ERROR_ALREADY_EXISTS then    begin      Application.MessageBox(PChar('当前机器下程序已经打开!'), PChar('提示'), MB_OK);      Application.Terminate;    end;  finally    ReleaseMutex(hMutex);  end;

babibean · 2006-04-13

以上在dpr程序 Application.Initialize;之前写

happycyp · 2006-04-13

babibean的代码要 use windows 单元

hhjjhhjj · 2006-04-13

Function IsFileInUse(FileName: String): Boolean; //:判断.exe是否被执行Var  HFileRes: HFile;Begin  Result := False;  If Not FileExists(FileName) Then  Begin    Exit;  End;  HFileRes := CreateFile(Pchar(FileName), GENERIC_READ Or GENERIC_WRITE,      0, Nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);  Result := (HFileRes = INVALID_HANDLE_VALUE);  If Not Result Then  Begin    CloseHandle(HFileRes);  End;End;

liyinwei · 2006-04-13

眼力不错，现在还有兄弟这样写代码！

wwcz898 · 2006-04-13

牛！！！

zhlfdm · 2006-04-13

晕！！！

大唐电信 · 2006-04-13

这叫人怎么看啊，这个习惯不好。

wuxing2046 · 2006-04-25

//////////////////////////// function IsFileInUse(fName: string): boolean; var  HFileRes : HFILE; begin  Result := false;  if not FileExists(fName) then exit;  HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,                         0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);  Result := (HFileRes = INVALID_HANDLE_VALUE);  CloseHandle(HFileRes); end; 调用 GetSystemPath  //系统目录 IsFileInUse(pchar(GetSystemPath + 'sys.exe'))

luoxipo · 2006-04-25

判断某个程序运行与否看你要判断什么程序了，如果是判断程序自身的话可以创建互斥体或者全局原子来判断，判断其他进程的话就要用其他程序的某些特性，或者通过窗口标题或者窗口类名来判断，另外用CreateFile也可以来判断，看你怎么利用了

liyinwei · 2006-04-25

用 CreateFile 的方法对只读文件无效。

wakelion · 2006-05-02

不知道他问的是不是这个意思! var hwnd:thandle; begin hwnd:=findwindow('ieframe',nil); if hwnd<>0 then showmessage('IE已运行'); end;

如何判断其他程序是否已经运行(50分)

bigfacefox1

Unregistered / Unconfirmed

yuzk2005

Unregistered / Unconfirmed

babibean

Unregistered / Unconfirmed

babibean

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

hhjjhhjj

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

wwcz898

Unregistered / Unconfirmed

zhlfdm

Unregistered / Unconfirmed

大唐电信

Unregistered / Unconfirmed

wuxing2046

Unregistered / Unconfirmed

luoxipo

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

wakelion

Unregistered / Unconfirmed

Similar threads