怎样判断某个程序正在被使用?急用。敬请各位给予帮助解决，万分感激。

Question

1 怎样判断某个程序正在被使用?
比如：我打开了我的一个程序，怎样编写一个程序来判断这个程序正在被使用？
2 如何编写程序让计算机一起动时就运行该程序？
请各位能帮我一下，小弟在此万分感激。是否您能分别编一个程序发到我的信箱？
Email:  [email protected]

Answer 1

呵呵，简单，不过记得要给分呀！
1.
我程序中的一段
var temp:string;
    h:hwnd;
begin
 //以下设置程序只运行一次
  temp:=application.Title;
  application.Title:='T_e_m_p';
  h:=findwindow(nil,pchar(temp)) ;
  if h<>0 then
  begin
   ShowMessage('程序运行中');
   ShowWindow(h, SW_RESTORE);
   Application.Terminate;
 end  else
 begin
  application.Title:=temp;
 end;
end;
2. 写在注册表
位置
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
需要程序的话先把这个帖子结了！

Answer 2

上边的，能说具体点不？
比如只打开一次c:\boot.ini怎么操作？

Answer 3

看这句：
h:=findwindow(nil,pchar(temp)) 
改成
h:=findwindow(nil,pchar('要限制的程序的名称'));
其他的类似