Thanks to all. o/
Solved:
function GetTempDirectory: String;
{$IFDEF MSWINDOWS}
var
VTempFolder: array[0..MAX_PATH] of Char;
{$ENDIF}
begin
{$IFDEF UNIX}
Result := GetTempDir;
{$ENDIF}
{$IFDEF MSWINDOWS}
GetTempPath(MAX_PATH, @VTempFolder);
Result := StrPas(VTempFolder);
{$ENDIF}
end;
--
Silvio Clécio
===============================================
Blog - <silvioprog.com.br>
Twitter - <twitter.com/silvioprog>
LazSolutions - <code.google.com/p/lazsolutions>
Lazarus-BR - <groups.google.com.br/group/lazarus-br?hl=pt-BR>
===============================================
* Conheça nosso canal IRC sobre Lazarus: #lazarus-br *
===============================================
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
