Usar Variável de Sistema
Boa tarde.
Como que eu faço pra descobrir o caminho da pasta arquivos de programas do pc. Por exemplo, se o windows do usuário está instalado no drive C:, o Arquivos de Programas vai estar no C:, porém se o windows estiver instalado no drive D: ou E: o ´Arquivo se Programas´, vai estar no mesmo drive do Windows. Sei que é algo como ¬Program Files Dir¬... pois a variável de Sistema do Windows é ¬Windir¬. Enfim... se alguém puder ajudar eu agradeço.
[]´s
Oberdan :!:
Como que eu faço pra descobrir o caminho da pasta arquivos de programas do pc. Por exemplo, se o windows do usuário está instalado no drive C:, o Arquivos de Programas vai estar no C:, porém se o windows estiver instalado no drive D: ou E: o ´Arquivo se Programas´, vai estar no mesmo drive do Windows. Sei que é algo como ¬Program Files Dir¬... pois a variável de Sistema do Windows é ¬Windir¬. Enfim... se alguém puder ajudar eu agradeço.
[]´s
Oberdan :!:
Oberdan
Curtidas 0
Respostas
Reginaldo174
01/07/2004
Function TForm1.ExtractWindowsDir : String;
Var
Buffer : Array[0..144] of Char;
Begin
GetWindowsDirectory(Buffer,144);
Result := (StrPas(Buffer));
showmessage(result);
End;
Esta dica funciona mesmo.
Var
Buffer : Array[0..144] of Char;
Begin
GetWindowsDirectory(Buffer,144);
Result := (StrPas(Buffer));
showmessage(result);
End;
Esta dica funciona mesmo.
GOSTEI 0