Como pegar o nome do computador e o sistema operacional?

Question

Pessoal,Procurei e alguns c�digos que achei n�o foram muito funcional...Preciso de saber qual o nome do computador, tipo aquela para do MEU COMPUTADOR que tem na �rea de trabalho...Ah... preciso do Si...

Tatuweb · Answer

Para retornar a vers�o do Windows. N�o funciona em XP. Mas n�o � dif�cil adapt�-la para funcionar no XP. S� n�o tentei fazer porque n�o uso esse sistema.

function GetWinVersion: string;
begin
  Result := �Desconhecido�;

  if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
    if (Win32MajorVersion > 4) or ((Win32MajorVersion = 4) and
      (Win32MinorVersion > 0)) then
         Result := �Windows98�
    else
      Result := �Windows95�
  else
    if Win32MajorVersion <= 4 then
      Result := �WindowsNT�
    else
      if Win32MajorVersion = 5 then
        Result := �Windows2000�
end;

Para retornar o Nome do �cone Meu Computador

function GetNameMyComputer: string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey (�\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}�, FALSE);
  Result := Reg.ReadString (��);
  Reg.CloseKey;
  Reg.Free;
end;

Redoctober · Answer

[quote:09216f2105=�TatuWeb�]function GetNameMyComputer: string; var   Reg: TRegistry; begin   Reg := TRegistry.Create;   Reg.RootKey := HKEY_CURRENT_USER;   Reg.OpenKey (�SoftwareClassesCLSID{20D04FE0-3AEA-1069-A2D8-08002B30309D}�, FALSE);   Result := Reg.ReadString (��);   Reg.CloseKey;   Reg.Free; end;[/quote:09216f2105]A� TatuWeb, deu um erro na linha[b:09216f2105]Reg: TRegistry; [/b:09216f2105]  -ERRO--> Undeclared identifier: �TRegistry�O que pode ser?...

Tatuweb · Answer

declare na se��o uses do form a unit Registry.[b:02b660725d]uses Registry;[/b:02b660725d] :wink:...

Redoctober · Answer

Agora n�o deu erro mais, n�o retornou nada no edit que coloquei...Uso o windows 98 SEO que pode ser?...

Tatuweb · Answer

Estranho. Testei no mesmo sistema que vc usa e funcionou. Em todo caso modifique as linhas 5 e 6 da fun��o. No meu caso funcionou das duas maneiras. Se n�o funcionar mude o nome do �cone e teste a fun��o novamente s� para tirar d�vida.

Reg.RootKey := HKEY_USERS;
Reg.OpenKey (�.DEFAULT\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}�, FALSE);

Era para funcionar porque essas chaves � que guardam o nome do �cone �meu computador�. Se n�o funcionar posta de novo que eu dou uma verificada.

Lucas Silva · Answer

[code:1:ba32017047]uses Registry;....function TdmAtualizacao.Getcomputer : string;var registro : tregistry;begin     registro:=tregistry.create;     registro.RootKey := HKEY_LOCAL_MACHINE;     registro.openkey(�SystemCurrentControlSetServicesVXDVNETSUP�,false);     result:=registro.readstring(�ComputerName�);end;[/code:1:ba32017047]...

Redoctober · Answer

Tentei como o lucas passou, mais n�o consegui!vejam como estou chamando a fun��o:[code:1:e68931707c]label1.caption:=TdmAtualizacao.Getcomputer;[/code:1:e68931707c]Estou errado?...

Tatuweb · Answer

Provavelmente vc colocou a palavra �TdmAtualizacao.� e deve ter dado um erro. Basta retirar essa palavra que vai funcionar. S� uma observa��o: essa fun��o passada pelo Lucas vai retornar o nome do computador e n�o o nome do �cone �meu computador� que t� na �rea de trabalho. Eu entendi que vc queria saber o nome do �cone. Se o que vc queria saber � o nome do computador � s� usar a fun��o do Lucas. Testa e veja se seu problema est� solucionado.

:wink:

F�rum Como pegar o nome do computador e o sistema operacional? #240259