Mega Code Archive

 

Categories / Delphi / Examples

 

Prevent multi instances of application

Title: Prevent multi instances of application Use FindWindow function to find another window with appropriate class name and caption. Use this code in project source. if FindWindow('TForm1','QQQ')=0 then begin Application.Initialize; Application.CreateForm(TForm1,Form1); Application.Run; end;