🚀 go-pugleaf

> ==> Bing_Jian(���)                          ˵��: 
>   For Example, a delphi project named project1 and its main form named form1, 
> how to use findwindow or other winapi in order to make project1 run only one  
> time? 
>    Protype of Function FindWindow as following: 
> HWND FindWindow( 
>     LPCTSTR  lpClassName,       // address of class name 
>     LPCTSTR  lpWindowName       // address of window name 
>    ); 
>    i dont know how to assign classname and windowname in delphi 
> program. 
>                     
 
    This is a sample show how to use FindWindow API in Delphi:

    This function will check whether your own application have been 
executed or not.

function IsInstance: boolean;
var
   MyOwnWindow: hWnd;
   sign: array [0..255] of char;
Begin
   StrPCopy(sign,Application.MainForm.Caption);
   MyOwnWindow:=FindWindow(nil, sign);
   if MyOwnWindow<>0 then
      result:=true
   else
      result:=false;
End;

   

--
�� ��Դ: �й�ƴ�BBSվ [bbs.ustc.edu.cn]