Como descobrir os diretorios Padroes do Windows ??

Delphi

13/02/2003

Pessoal,

É o seguinte, ja vi em algum lugar mas nao encontro mais, alguem sabe como posso fazer para descobrir os diretorios Padroes do Windows ?? Ex.: ´Meus Documentos´, ´Arquivos de Programas´

Falow.


123456

123456

Curtidas 0

Respostas

Dor_poa

Dor_poa

13/02/2003

049 - Diretório de instalação do windows
function PegaSysDir: string;
var
MeuBuffer: Array [1..128] of Char;
retorno: Integer;
Begin
retorno:=GetSystemDirectory(@MeuBuffer,128);
if (retorno>128) OR (retorno=0) then
PegaSysDir:=´´
else
PegaSysDir:=StrPas(@MeuBuffer);
End;



057 - Diretório Windows ,System e Temp
Function ExtractWindowsDir : String;
Var
Buffer : Array[0..144] of Char;
Begin
GetWindowsDirectory(Buffer,144);
Result := FormatPath(StrPas(Buffer));
End;

Function ExtractSystemDir : String;
Var
Buffer : Array[0..144] of Char;
Begin
GetSystemDirectory(Buffer,144);
Result := FormatPath(StrPas(Buffer));
End;

Function ExtractTempDir : String;
Var
Buffer : Array[0..144] of Char;
Begin
GetTempPath(144,Buffer);
Result := FormatPath(StrPas(Buffer));
End;


GOSTEI 0
POSTAR