Posted: Wed Jan 26, 2005 11:28 am
Do you mean ignorance? :roll:(Ignorence spilling out all over me here )
PureBasic Forums - English
http://www.purebasic.com
https://www.purebasic.fr/english/
How I can get the path of the programs folder?
Page 2 of 3
Posted: Wed Jan 26, 2005 11:31 am
Yep, nice code, GPI.
I guess I'm a Randy-kind of programmer: the less lines, the better...
I guess I'm a Randy-kind of programmer: the less lines, the better...
Re: How I can get the path of the programs folder?
Posted: Wed Jan 26, 2005 11:40 am
English is a foreign language here too. I think only the British speak English. Nobody really know what language we speak over here.gnozal wrote: English is a foreign language for most people in the world
Posted: Wed Jan 26, 2005 11:44 am
Its my ingorence and I'll spill it however I likeForest Dreams wrote:Do you mean ignorance? :roll:(Ignorence spilling out all over me here )
... and get it all over me too if I want... and sometines when I don't want.
Posted: Wed Jan 26, 2005 11:45 am
STOP CALLING ME PROGRAMMEREl_Choni wrote:Yep, nice code, GPI.
I guess I'm a Randy-kind of programmer: the less lines, the better...
Posted: Wed Jan 26, 2005 12:52 pm
Posted: Wed Jan 26, 2005 2:31 pm
Hi 
Thanks for all your help
PEACE AND LOVE!
Thanks for all your help
PEACE AND LOVE!
Posted: Wed Jan 26, 2005 2:41 pm
P.S.
I'm ITALIAN
I'm ITALIAN
Posted: Wed Jan 26, 2005 3:07 pm
Procedure.s ExpandEnv (env$)
sizerequired = ExpandEnvironmentStrings_ (env$, dest$, 0)
If (sizerequired)
dest$ = Space (sizerequired)
result = ExpandEnvironmentStrings_ (env$, dest$, 159)
EndIf
ProcedureReturn dest$
EndProcedure
Debug "%SystemDrive%: "+ExpandEnv ("%SystemDrive%")
Debug "%SystemRoot%: "+ExpandEnv ("%Systemroot%")
Debug "%OS%: "+ExpandEnv ("%OS%")
Debug "%Temp%: "+ExpandEnv ("%Temp%")
Debug "%HomePath%: "+ExpandEnv ("%HomePath%")
Debug "%Path%: "+ExpandEnv ("%Path%")
Debug "%Programfiles%: "+ExpandEnv ("%Programfiles%")
sizerequired = ExpandEnvironmentStrings_ (env$, dest$, 0)
If (sizerequired)
dest$ = Space (sizerequired)
result = ExpandEnvironmentStrings_ (env$, dest$, 159)
EndIf
ProcedureReturn dest$
EndProcedure
Debug "%SystemDrive%: "+ExpandEnv ("%SystemDrive%")
Debug "%SystemRoot%: "+ExpandEnv ("%Systemroot%")
Debug "%OS%: "+ExpandEnv ("%OS%")
Debug "%Temp%: "+ExpandEnv ("%Temp%")
Debug "%HomePath%: "+ExpandEnv ("%HomePath%")
Debug "%Path%: "+ExpandEnv ("%Path%")
Debug "%Programfiles%: "+ExpandEnv ("%Programfiles%")
Posted: Wed Jan 26, 2005 3:58 pm
lol
Posted: Wed Jan 26, 2005 4:00 pm
path is empty. BTW: does this work with 9x/2000?
Posted: Wed Jan 26, 2005 4:22 pm
Hi
In my system WindowsXP Pro path isn't empty.
I don't know if it works on 9.x
In my system WindowsXP Pro path isn't empty.
I don't know if it works on 9.x
Posted: Wed Jan 26, 2005 4:35 pm
Would this not work for you ??
Enjoy!
Code: Select all
#CSIDL_BITBUCKET=$30
#CSIDL_DESKTOP=$10
#CSIDL_FAVORITES=$06
#CSIDL_FONTS=$14
#CSIDL_HISTORY=$22
#CSIDL_MYPICTURES=$27
#CSIDL_PROGRAM_FILES=$26
#CSIDL_STARTMENU=$0B
#CSIDL_SYSTEM=$25
#CSIDL_WINDOWS=$24
buffer.l=0
folder.s=Space(255)
SHGetSpecialFolderLocation_(0, #CSIDL_PROGRAM_FILES, @buffer)
SHGetPathFromIDList_(buffer, @folder)
MessageRequester("Program Files",folder,0)
Enjoy!
Posted: Wed Jan 26, 2005 6:36 pm
Hi
Thanks again.
P.S.
Paul thanks for your "PureVisionXP" I'm an happy user of your program.
Thanks again.
P.S.
Paul thanks for your "PureVisionXP" I'm an happy user of your program.
Re: How I can get the path of the programs folder?
Posted: Thu Jan 27, 2005 4:41 am
That is actually true, English is not the most popular language, it is #3, with American as #2, and Spanish as #1gnozal wrote:English is a foreign language for most people in the worldRandy Walker wrote:Who'd of thought anyone would install Windows in some foreign language?