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.
1 28.09.2007 10:54:08 Son düzenleyen, aydinufuk (28.09.2007 11:13:12)
- soykanozcelik
- Uzman Üye
- Offline
Re: PROGRAM FILES FULLPATH?
Visual Fox Pro
FULLPATH(GETENV("ProgramFiles" ))
- ahmet
- Üye
- Offline
Re: PROGRAM FILES FULLPATH?
Visual Fox Pro
prgPath = sys(5)+[\Program Files\]
- soykanozcelik
- Uzman Üye
- Offline
Re: PROGRAM FILES FULLPATH?
ahmetozkaya yazdı:
Visual Fox ProprgPath = sys(5)+[\Program Files\]
oda olur ama
Visual Fox Pro
fullpath(getenv("Programfiles"))
daha garanti 
- ahmet
- Üye
- Offline
Re: PROGRAM FILES FULLPATH?
belki dedim program files'tan vazgeçip başka yeri kullanır.
Birde böyle yapılabiliyor:
Visual Fox Pro
prgPath = GETENV("HOMEDRIVE")+[\Program Files\]
- soykanozcelik
- Uzman Üye
- Offline
Re: PROGRAM FILES FULLPATH?
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..
Re: PROGRAM FILES FULLPATH?
saolun arkadaşlar işim görülmüştür
- cetinbasoz
- Uzman Üye
- Offline
Re: PROGRAM FILES FULLPATH?
Visual Fox Pro
#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