Biblioteca para Operações com o Sistema

{

  Objeto...: Biblioteca de rotinas de sistema.

  Categoria: Open-Source

  Autor....: Daniel Pereira Guimarães

  E-mail...: tecnobyte@ulbrajp.com.br

  Home-Page: www.ulbrajp.com.br/~tecnobyte

 }

unit tbSys;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

{ Retorna true se o computador está configurado para rede }

function NetIsPresent: boolean;

{ Retorna o nome do computador }

function SysComputerName: string;

{ Retorna o diretório do Windows }

function SysWinDir: string;

{ Retorna a identificação da plataforma }

function SysPlatform: DWord;

{ Define o nome do computador }

function SysSetComputerName(const S: string): boolean;

{ Retorna o diretório System do Windows }

function SysSystemDir: string;

{ Retorna o diretório Temp do Windows }

function SysTempDir: string;

{ Retorna o nome do usuário logado no Windows }

function SysUserName: string;

{ Retorna informações de versão do Windows }

function SysVersion(var Ver: _OSVERSIONINFOA): boolean;

{ Retorna uma string contendo a versão do Windows }

function SysVersionStr: string;

{ Processa as mensagens enviadas a uma janela }

procedure WndProcessMessages(const Wnd: HWnd);

{ Processa as mensagens enviadas a uma janela - somente o intervalo

  de mensagens informado }

procedure WndProcessMessagesEx(const Wnd: HWnd; const FromMsg, ToMsg: Cardinal);

implementation

{ *** Net *** }

function NetIsPresent: boolean;

begin

  Result := GetSystemMetrics(SM_NETWORK) <> 0;

end;

{ Sys }

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;

function SysWinDir: string;

begin

  SetLength(Result, MAX_PATH);

  Windows.GetWindowsDirectory(PChar(Result), MAX_PATH);

  Result := string(PChar(Result));

end;

function SysPlatform: DWord;

var

  Ver: _OSVERSIONINFOA;

begin

  if SysVersion(Ver) then

  Result := Ver.dwPlatformId

  else

  Result := 0;

end;

function SysSetComputerName(const S: string): boolean;

begin

  Result := Windows.SetComputerName(PChar(S));

end;

function SysSystemDir: string;

begin

  SetLength(Result, MAX_PATH);

  if GetSystemDirectory(PChar(Result), MAX_PATH) > 0 then

  Result := string(PChar(Result))

  else

  Result := '';

end;

function SysTempDir: string;

begin

  SetLength(Result, MAX_PATH);

  if GetTempPath(MAX_PATH, PChar(Result)) > 0 then

  Result := string(PChar(Result))

  else

  Result := '';

end;

function SysUserName: string;

var

  I: DWord;

begin

  I := 255;

  SetLength(Result, I);

  Windows.GetUserName(PChar(Result), I);

  Result := string(PChar(Result));

end;

function SysVersion(var Ver: _OSVERSIONINFOA): boolean;

begin

  Ver.dwOSVersionInfoSize := SizeOf(Ver);

  Result := GetVersionEx(Ver);

end;

function SysVersionStr: string;

var

  Ver: _OSVERSIONINFOA;

begin

  if SysVersion(Ver) then

  Result := IntToStr(Ver.dwMajorVersion) + '.' +

  IntToStr(Ver.dwMinorVersion)

  else

  Result := '';

end;

procedure WndProcessMessages(const Wnd: HWnd);

begin

  WndProcessMessagesEx(Wnd, 0, 0);

end;

procedure WndProcessMessagesEx(const Wnd: HWnd; const FromMsg, ToMsg: Cardinal);

var

  Msg: tagMsg;

begin

  while PeekMessage(Msg, Wnd, FromMsg, ToMsg, PM_REMOVE) do

  DispatchMessage(Msg);

end;

end.