Examples Delphi

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;