Pascal Scripting with Inno Setup

In INNO setup I'd like to abort setup if AutoCAD is running. I would like to
use the function "FindWindowByWindowName(const WindowName: String):
Longint;" to determine whether AutoCAD is running in the InitializeSetup()
function. Does anyone know what window name to use for AutoCAD? Theres also
a FindWindowByClassName(const ClassName: String): Longint;" function if
anyone knows the class name.

Does anyone have any better suggestions?

Thanks,

D.M. Levesque

 

You don't have to go to that extents, not
to mention that it doesn't work reliably
since you can't count on exactly what the
AutoCAD window's caption might be.

You just need this:

uses
ComObj, ActiveX;

Function IsAutoCADRunning: Boolean;
begin
Result := True;
try
GetActiveOleObject('AutoCAD.Application');
except
Result := False;
end;
end;

 

Thanks again Tony but one question. I'm very new to Pascal scripting and I'm
unsure as to how to indicate that the function requires ComObj and ActiveX.

I tried pasting:

uses
ComObj, ActiveX;

just above the function but that didn't work.

Best regards,

Dale

 

Thanks Ray. That app seems to work fine but it's resulting class name
doesn't seem to work as far as my code goes.

Dale

 

The Pascal script that's being used in Inno Setup 4 (which is
what I assume you're using) doesn't support ActiveX or 'uses",
so what I showed isn't going to work. I didn't even know that
version 4 had it, but it's still beta anyway.

--
http://www.acadxtabs.com