version de windows.... Como?? :S

[[cHackAll]]

Busca "GetVersion", "GetVersionEx" o ejecuta "winver"


Edito;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Size: Cardinal;
 hKey: Windows.HKEY;
 Buffer: ShortString;
begin
 Size := SizeOf(Buffer);
 RegOpenKey(HKEY_LOCAL_MACHINE, 'software\microsoft\windows nt\currentversion', hKey);
 RegQueryValueEx(hKey, 'productname', nil, nil, @Buffer, @Size);
 RegCloseKey(hKey);
 ShowMessage(string(PChar(@Buffer)));
end;

[[FGarcia]]

Empezado por cHackAll

Busca "GetVersion", "GetVersionEx" o ejecuta "winver"


Edito;


Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
Size: Cardinal;
hKey: Windows.HKEY;
Buffer: ShortString;
begin
Size := SizeOf(Buffer);
RegOpenKey(HKEY_LOCAL_MACHINE, 'software\microsoft\windows nt\currentversion', hKey);
RegQueryValueEx(hKey, 'productname', nil, nil, @Buffer, @Size);
RegCloseKey(hKey);
ShowMessage(string(PChar(@Buffer)));
end;

Copiando y modificando (que no es lo mismo que entendiendo) el codigo de cHackAll quedo asi para una ventana de Acerca de:

Código Delphi [-]
procedure TfrmAbout.FormShow(Sender: TObject);
var
 Size, Size2: Cardinal;
 hKey, cbKey, csdKey: Windows.HKEY;
 Buffer, Buffer1, Buffer2: ShortString;
begin
  Size := SizeOf(Buffer);
  RegOpenKey(HKEY_LOCAL_MACHINE, 'software\microsoft\windows nt\currentversion', hKey);
  RegOpenKey(HKEY_LOCAL_MACHINE, 'software\microsoft\windows nt\currentversion', cbKey);
  RegOpenKey(HKEY_LOCAL_MACHINE, 'software\microsoft\windows nt\currentversion', csdKey);
  RegQueryValueEx(hKey, 'productname', nil, nil, @Buffer, @Size);
  RegQueryValueEx(cbKey, 'currentbuildnumber', nil, nil, @Buffer1, @Size);
  RegQueryValueEx(csdKey, 'CSDVersion', nil, nil, @Buffer2, @Size2);
  RegCloseKey(hKey);
  RegCloseKey(cbKey);
  RegCloseKey(CSDKey);
  //ShowMessage(string(PChar(@Buffer)) + ' (Build ' + string(PChar(@Buffer1)) + ') ' + string(PChar(@Buffer2)));
  Comments.caption := string(PChar(@Buffer)) + ' (Build ' + string(PChar(@Buffer1)) + ') ' + string(PChar(@Buffer2)); //Este es un label dentro del form
end;

Lo que no entiendo es porque en el label me escribe asi:

Microsoft
Windows
XP(Build
2600)
Service
Pack 3

sin embargo si uso el showmessage lo escribe correctamente en una linea.
Mientras escribo y reviso el codigo me doy cuenta que tampoco inicialize Size2

Como siempre agradesco la ayuda!

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Size: Cardinal;
 hKey: Windows.HKEY;
 Buffer: ShortString;
 Str: string;
begin
 RegOpenKey(HKEY_LOCAL_MACHINE, 'software\microsoft\windows nt\currentversion', hKey);
 Size := SizeOf(Buffer);
 RegQueryValueEx(hKey, 'productname', nil, nil, @Buffer, @Size);
 Str := string(PChar(@Buffer)) + ' (Build '; Size := SizeOf(Buffer);
 RegQueryValueEx(hKey, 'currentbuildnumber', nil, nil, @Buffer, @Size);
 Str := Str + string(PChar(@Buffer)) + ') ';
 RegQueryValueEx(hKey, 'csdversion', nil, nil, @Buffer, @Size);
 Str := Str + string(PChar(@Buffer));
 RegCloseKey(hKey);
 Caption := Str;
end;

[BlackDaemon]

Hola

El mensaje de chakall a deformado el estilo de la página del foro, a salido todo en una sola línea jeje

Saludos!

[[cHackAll]]

Empezado por BlackDaemon

Hola

El mensaje de chakall a deformado el estilo de la página del foro, a salido todo en una sola línea jeje

Saludos!

jajajaja

Al parecer el Clipboard se agarró conmigo , gracias por hacerlo notar BlackDaemon.

[[FGarcia]]

De hecho desde hace unos dias hace cosas raras al pegar codigo. Al final asi quedo:

Código Delphi [-]
procedure TfrmAbout.FormShow(Sender: TObject);
var
 Size: Cardinal;
 hKey: Windows.HKEY;
 Buffer: ShortString;
 Str: string;
begin
  RegOpenKey(HKEY_LOCAL_MACHINE,'software\microsoft\windows nt\currentversion',hKey);
  
  Size := SizeOf(Buffer);
  RegQueryValueEx(hKey, 'productname', nil, nil,@Buffer, @Size);
  Str := string(PChar(@Buffer)) + ' (Build ';
  
  Size := SizeOf(Buffer);
  RegQueryValueEx(hKey, 'currentbuildnumber', nil,nil, @Buffer, @Size);
  Str := Str + string(PChar(@Buffer)) + ') ';
  
  Size := SizeOf(Buffer); //Si no se actualiza el tamaño muestra basura
  RegQueryValueEx(hKey, 'csdversion', nil, nil,@Buffer, @Size);
  Str := Str + string(PChar(@Buffer));
  
  RegCloseKey(hKey);
  label1.Caption := Str; //Tuve que modificarla para que no fuese AutoSize
                                //De otro modo lo da en varias lineas
end;

Gracias por la ayuda