SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ 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;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes