Código
var
TempDir: array[0..255] of Char;
begin
GetTempPath(255, @TempDir);
Result := StrPas(TempDir);
end;
GetTempPath obtém os diretórios da seguinte forma:
1. O caminho especificado pela variável ambiental TMP
2. O caminho especificado pela variável ambiente TEMP se TMP não existe
3. O diretório corrente, se TMP e TEMP não foram definidas.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009