Sometimes you may want to find out whether the Delphi IDE is running. You can use the following function:

function IsDelphiRunning : boolean;
begin
    Result:= (FindWindow('TAppBuilder', nil) > 0);
end;
 

This function will return a value of TRUE if the IDE is running or FALSE, otherwise.

This is very helpful, if you only want someone to use your shareware component from inside the Delphi IDE.