PDA

View Full Version : نصب بودن اکسل در کامپيوتر



h_mohamadi
یک شنبه 04 اسفند 1387, 10:49 صبح
سلام
مي خواستم بدانم چگونه مي توان فهميد که اکسل در يک کامپيوتر نصب است يا نه؟

Unique
یک شنبه 04 اسفند 1387, 17:30 عصر
سلام

یه روش :

var
ClassID: TCLSID;
strOLEObject: string;
begin
strOLEObject := 'Excel.Application';
if (CLSIDFromProgID(PWideChar(WideString(strOLEObject )), ClassID) = S_OK)
then
begin
<application is installed>
end
else
begin
<application is NOT installed>
end
end;


یه روش دیگه :

try
ExcelApp := GetActiveOleObject('Excel.Application');
except
try
// If no instance of Word is running, try to Create a new Excel Object
ExcelApp := CreateOleObject('Excel.Application');
except
ShowMessage('Cannot start Excel/Excel not installed ?');
Exit;
end;
end;

vcldeveloper
یک شنبه 04 اسفند 1387, 17:31 عصر
همین چند روز پیش در یک تاپیک دیگه کدی برای بدست آوردن لیست برنامه های نصب شده قرار دادم.