'Excel' yüklü olup olmadığını nasıl anlayabiliriz

**konuka** · 23.07.2007 13:36:47

konuka
Üye
Offline

Yer: Antalya
Kayıt Tarihi: 01.01.2007
İleti: 589

Konu: 'Excel' yüklü olup olmadığını nasıl anlayabiliriz

error trap metodu dışında; bir bilgisayarda örneğin 'Excel' yüklü olup olmadığını nasıl anlayabiliriz?
Eğer yüklü ise versionu hakkında bilgi nasıl alabiliriz ?
şimdiden teşekkürler
Ali VFP 6.0 SP4

VFP9 SP2

**soykanozcelik** · 23.07.2007 13:40:53

soykanozcelik
-
Offline

Yer: Tekirdağ
Kayıt Tarihi: 25.08.2006
İleti: 1,191

Re: 'Excel' yüklü olup olmadığını nasıl anlayabiliriz

class tan alıntıdır.

Kaynak : Cetin BASOZ

* kontrol kodu

Visual Fox Pro

do case

&&case _IsClassRegistered('Word.Application')

&&messagebox('Word 97 veya sonrasi yuklu')

case this._IsClassRegistered('Excel.Application')

RETURN &&messagebox('Excel yuklu')

otherwise

messagebox('MSExcel Sistemde Yüklü Değil !',16,'Hata ...')

   quit

endcase

* class method kodu

Visual Fox Pro

lparameters tcClass

#DEFINE HKEY_CLASSES_ROOT    -2147483648

#DEFINE ERROR_SUCCESS       0   && OK

 

DECLARE Integer RegOpenKey IN Win32API ;

    Integer nHKey, String @cSubKey, Integer @nResult

 

DECLARE Integer RegCloseKey IN Win32API ;

    Integer nHKey

 

local lnKey

lnKey = 0

llRetVal = ( RegOpenKey(HKEY_CLASSES_ROOT, tcClass, @lnKey) = ERROR_SUCCESS )

if llRetVal

  RegCloseKey(lnKey)

endif

CLEAR DLLS

return llRetVal