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