怎样知道托盘中已存在某个应用程序？

[憨逗熊]

怎样知道托盘中已存在某个应用程序？

[zwb666]

帮顶

[PrettyMurphy]

关注

[zdq801104]

不怎么明白楼主意思？我想你自己做一个让实例只能运行一次的判断不就可以了吗？

[zdq801104]

实例只能运行一次的代码：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, CheckLst;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
//保存Mutex句柄
mHandle:THandle;
PreviousInstanceWindow:HWnd;
Project:String;
AppName:String;
implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin

end;

initialization
//定义自己的项目名称，作为要创建的互斥区名，最好有自己的特点以防止重复
Project:='RunOnlyOnce_MyProject';
//将lpMutexAttributes设为nil,bInitialOwner设为True(即本程序拥有该互斥区)
mHandle:=CreateMutex(nil,True,PChar(Project));
if GetLastError=ERROR_ALREADY_EXISTS then
//该互斥区已存在则表明已有本程序的另一个实例在运行
begin
ShowMessage('已经有该程序在运行');
//保存程序标题
AppName:=Application.Title;
//不显示本窗口
Application.ShowMainForm:=False;
//改变程序标题，以使函数FindWindow找到的是前一个实例窗口
Application.Title:='destroy me';
//寻找前一个实例窗口句柄
PreviousInstanceWindow:=FindWindow(nil,PChar(AppName));
//已经找到
if PreviousInstanceWindow<>0 then
//如果该窗口最小化则恢复
if IsIconic(PreviousInstanceWindow) then
ShowWindow(PreviousInstanceWindow,SW_RESTORE)
else
//如果程序在后台则将其放到前台
SetForegroundWindow(PreviousInstanceWindow);
//中止本实例
Application.Terminate;
end;
finalization
//该互斥区对象仍存在则关闭对象
if mHandle<>0 then
CloseHandle(mHandle);
end.

[dreamonce]

如果是想判断是是否有某程序在运行，最好是寻找
是否有程序的窗口，或是察看是否有进程

[richard_ouyang]

zdq801104(【☆我很笨，但是我不傻！☆】) 只是说了判断这个程序是否在运行。没有解决是否在托盘呀。
具体的办法我不知道。我有一个笨方法当系统在托盘显示图标的时候把一个变量状态设置一下

[zdq801104]

如果你做成了托盘程序，运行后当然会在右下角显示，你运行后知道这个程序在运行就不加载了嘛，我觉得楼主根本想问的并不是我们所答的，？？