Delphi - Fut-e a Delphi?

forráskód letöltése
Ha valamilyen okból kifolyólag szükségünk van arra az információra, hogy a Delphi éppen fut-e, vagy sem, akkor azt programból is lekérdezhetjük. Ennek legegyszerűbb módjáról szól ez a cikk. Ehhez mindössze annyit kell tudnunk, hogy mi a Delphi Form osztályának a neve. A FindWindow függvénnyel rákeresünk erre a névre, és ha a visszatérési értéke nem 0, akkor a Delphi fut. A FindWindow függvény első paramétere a keresett Form osztály neve, a második paraméter pedig a Form neve. Egyszerre csak az egyiket kell megadnunk, ezért első paraméterként megadjuk az osztály nevét, ami "TAppBuilder", a második paraméterként pedig nil-t adunk meg.
procedure TForm1.FormCreate(Sender: TObject);
begin
  if FindWindow('TAppBuilder', nil)<>0 then
    Label1.Caption:='A Delphi fut!'
  else
    Label1.Caption:='A Delphi NEM fut!';
end;