Инсталиран ли е EXCEL?
2 отговора
112 прегледа
Инсталиран ли е EXCEL?
Здравейте!Въпросът ми е доста лесен,но аз не се досещам за отговора. Пробвах този код за проверка на това дали Excel е инсталиран,но компилаторът ми дава следните грешки:
Undeclared identifier TCLSID
Undeclared identifier CLSIDFromProgID
Къде се намира този клас TCLSID?
кодът е:
procedure excel;
var
ClassID: TCLSID;
strOLEObject: string;
begin
strOLEObject := 'Excel.Application';
if (CLSIDFromProgID(PWideChar(WideString(strOLEObject)), ClassID) = S_OK) then
begin
Showmessage('Yes');
end
else
begin
Showmessage('No');
end
end;
end.
Undeclared identifier TCLSID
Undeclared identifier CLSIDFromProgID
Къде се намира този клас TCLSID?
кодът е:
procedure excel;
var
ClassID: TCLSID;
strOLEObject: string;
begin
strOLEObject := 'Excel.Application';
if (CLSIDFromProgID(PWideChar(WideString(strOLEObject)), ClassID) = S_OK) then
begin
Showmessage('Yes');
end
else
begin
Showmessage('No');
end
end;
end.
можеш да го направиш така
function CLSIDFromProgID(pszProgID: PWideString; out clsid: TGuid): HResult; stdcall;
external 'ole32.dll';
procedure excel;
var
ClassID: TGuid;
strOLEObject: string;
begin
strOLEObject := 'Excel.Application';
if (CLSIDFromProgID(PWideString(WideString(strOLEObject)), ClassID) = S_OK) then
Showmessage('Yes')
else
Showmessage('No');
end;