You may want your program to check if Delphi is running. Well, if so try out this code. This is the method for programs:
function IsDelphiRunning: Boolean;
begin
Result := (FindWindow(’TAppBuilder’, nil) > 0);
end;
If you want to check if Delphi is running and you are creating VCL components then you should check for the csDesigning flag.
Here’s [...]
Merlin’s Delphi Forge