Konu: PROGRAM FILES FULLPATH?
Merhaba arkadaşlar,
O an aktif olan Windows işletim sisteminin "program files" dizininin fullpath 'ini nasıl bulabilirim.
Teşekkür ederim.
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Merhaba arkadaşlar,
O an aktif olan Windows işletim sisteminin "program files" dizininin fullpath 'ini nasıl bulabilirim.
Teşekkür ederim.
FULLPATH(GETENV("ProgramFiles" ))
Visual Fox ProprgPath = sys(5)+[\Program Files\]
oda olur ama
fullpath(getenv("Programfiles"))
daha garanti
belki dedim program files'tan vazgeçip başka yeri kullanır.
Birde böyle yapılabiliyor:
prgPath = GETENV("HOMEDRIVE")+[\Program Files\]
sonucta getenv() ile yapmak daha saglikli cunku direkt sistemi okuyor hoş
sys(5) te default drive yada volume u buluyor yani OS E: dede kurulu olsa buluır..
saolun arkadaşlar işim görülmüştür
#define CSIDL_PROGRAM_FILES 0x0026
#define CSIDL_PROGRAM_FILES_COMMON 0x002B
Declare short SHGetSpecialFolderPath in Shell32.dll ;
integer hwndOwner, string @ lpszPath, ;
integer nFolder, short fCreate
#Define MAX_PATH 267
lpszPath = Replicate(Chr(0),MAX_PATH)
if SHGetSpecialFolderPath(0,@lpszPath,CSIDL_PROGRAM_FILES,0) # 0
lcFolder = left(lpszPath,at(chr(0),lpszPath)-1)
EndIf
? m.lcFolder