QUICK TIPS: Funções para Retornar Informações do Sist Operacional

Olá Pessoal,

Segue abaixo alguma funções muito úteis em delphi para extrair informações do ambiente onde nossa aplicação esta sendo executada. Entre outras funções temos uma para retornar o nome do computador, alterar o nome do computador na rede, entre outras. Observe a lista de fucções abaixo:

Retorna o nome do computador na rede
function SysComputerName: string;
var
  I: DWord;
begin
  I := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, I);
  Windows.GetComputerName(PChar(Result), I);
  Result := string(PChar(Result));
end;

Retorna o diretório de instalação do Windows
function SysWinDir: string;
begin
  SetLength(Result, MAX_PATH);
  Windows.GetWindowsDirectory(PChar(Result), MAX_PATH);
  Result := string(PChar(Result));
end;

Retorna o diretório System do Windows
function SysSystemDir: string;
begin
  SetLength(Result, MAX_PATH);
  if GetSystemDirectory(PChar(Result), MAX_PATH) > 0 then
  Result := string(PChar(Result))
  else
  Result := '';
end;


Retorna o diretório Temp do Windows
function SysTempDir: string;
begin
  SetLength(Result, MAX_PATH);
  if GetTempPath(MAX_PATH, PChar(Result)) > 0 then
  Result := string(PChar(Result))
  else
  Result := '';
end;

Retorna o nome do usuário logado no Windows
function SysUserName: string;
var
  I: DWord;
begin
  I := 255;
  SetLength(Result, I);
  Windows.GetUserName(PChar(Result), I);
  Result := string(PChar(Result));
end;
 
Retorna uma string contendo a versão do Windows
function SysVersionStr: string;
var
  Ver: _OSVERSIONINFOA;
begin
  if SysVersion(Ver) then
  Result := IntToStr(Ver.dwMajorVersion) + '.' +
  IntToStr(Ver.dwMinorVersion)
  else
  Result := '';
end;

Estas funções são úteis quando vamos criar instaladores dentro do próprio Delphi ou quando queremos trabalhar com arquivos padrão do SO.

Abraços e até a próxima.