Windows - pasta win, system, temp, arquivo temp, usuario e computador

// Funcoes para:

// ArquivoTemporario, Pasta do Windows, Pasta System, Pasta Temp

// Nome do usuário e computador

// Arquivo Temporário

function GetArquivoTemp(Prefixo: string = ''): string;

var

  bufDirWin: array[0..256] of char;

  bufTemp  : array[0..256] of char;

  lnwTam   : Longword;

begin

  GetTempPath(256, bufDirWin); // Diretório Temporário

  GetTempFileName(bufDirWin, PChar(Prefixo), 0, bufTemp);

  Result := StrPas(bufTemp);

end;

function GetWindowsDir: string;

var

  bufDirWin: array[0..256] of char;

begin

  GetWindowsDirectory(bufDirWin, 256);

  Result := StrPas(bufDirWin);

end;

function GetSystemDir: string;

var

  bufDirWin: array[0..256] of char;

begin

  GetSystemDirectory(bufDirWin, 256);

  Result := StrPas(bufDirWin);

end;

function GetTempDir: string;

var

  bufDirWin: array[0..256] of char;

begin

  GetTempPath(256, bufDirWin);

  Result := StrPas(bufDirWin);

end;

function GetUsuario: string;

var

  bufTemp: array[0..256] of char;

  lnwTam : Longword;

begin

  // Nome do usuário

  lnwTam := 256;

  GetUserName(bufTemp, lnwTam);

  Result := StrPas(bufTemp);

end;

// Nome do computador

function GetComputador: string;

var

  bufTemp: array[0..256] of char;

  lnwTam : Longword;

begin

  lnwTam := 256;

  GetComputerName(bufTemp, lnwTam);

  Result := StrPas(bufTemp);

end;