Fórum Informação sobre o S.O. #410457

unit uFuncoes;

interface

uses Windows, IniFiles;
        
  function getMemoriaFisica : Integer;
  function getMemoriaFisicaMB : Integer;
  function getSO : string;
  function getIni(lcIni, lcSessao, lcSubSessao : string) : string;
  procedure setIni(lcIni, lcSessao, lcSubSessao, lcValor : string);

implementation
  //funcao que retorna o tamanho da memoria fisica
  function getMemoriaFisica : Integer;
  var
    {
    typedef struct _MEMORYSTATUS
    DWORD dwLength;         //sizeof (MEMORYSTATUS)
    DWORD dwMemoryLoad;     //percentual de memoria em uso
    DWORD dwTotalPhys;      //bytes de memoria fisica
    DWORD dwAvailPhys;      //bytes livres de memoria fisica
    DWORD dwTotalPageFile;  //bytes de paginacao do arquivo
    DWORD dwAvailPageFile;  //bytes livres de paginacao do arquivo
    DWORD dwTotalVirtual;   //byte em uso de espaco de endereco
    DWORD dwAvailVirtual;   //bytes livres
    }
    loMemoryStatus : TMemoryStatus;
  begin
    loMemoryStatus.dwLength := sizeof(loMemoryStatus);
    GlobalMemoryStatus(loMemoryStatus);
    Result := loMemoryStatus.dwAvailPhys;
  end;

  //funcao que retorna o tamanho da memoria fisica em megabytes
  function getMemoriaFisicaMB : Integer;
  begin
    Result := getMemoriaFisica div 1024;  //obtem o tamanho em kilobytes
    Result := Result div 1024;  //obtem o tamanho em megabytes
  end;

  //funcao que retorna informacoes sobre o Sistema Operacional
  //{
  function getSO : string;
  var
    loInfo : TOsVersionInfo;
  begin
    loInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
    if GetVersionEx(loInfo) then
    begin
      if loInfo.dwPlatformId = VER_PLATAFORM_WIN32s then
        Result := Microsoft Windows 95
      else if loInfo.dwPlatformId = VER_PLATAFORM_WIN32_WINDOWS then
        Result := Microsoft Windows 95 Osr2 / 98
      else
        Result := Microsoft Windows NT;
    end
    else
      Result := Não foi possivel descobrir S.O.;
  end;
  //}

  procedure setIni(lcIni, lcSessao, lcSubSessao, lcValor : String);
  var
    loIni : TIniFile;
  begin
    loIni := TIniFile.Create(lcIni);
    try
      loIni.WriteString(lcSessao, lcSubSessao, lcValor);
    finally
      loIni.Free;
    end;
  end;

  function getIni(lcIni, lcSessao, lcSubSessao : String) : String;
  var
    loIni : TIniFile;
  begin
    loIni := TIniFile.Create(lcIni);
    try
      Result := loIni.ReadString(lcSessao, lcSubSessao, );
    finally
      loIni.Free;
    end;
  end;
end.