发信人: leezy (西门懒得吹血), 信区: BorlandDev
标  题: 一行搞定防止重复运行
发信站: 哈工大紫丁香 (2003年05月08日14:43:47 星期四), 站内信件

  if findwindow('TApplication','YourTitle')<>0 then Halt;
  //就一行
  Application.Initialize;
  Application.Title := 'YourTitle';
  Application.CreateForm(TFormXYZDisplay, FormXYZDisplay);
  Application.Run;


--

　 
   　　●(不许动!)　　 ○　←你　
　　　 █┳　　　　　┗█┛　
　　　┏┓　　　　　　┛┗　　　　　快说，灌水了吗？不然一枪打死你~！　
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]