recuperer Valeur héxadecimal du registre windows

Question

Mxbug · Answer

( je sait pas pourquoi le message s'affiche pas bref voila ce que j'ai posté ) :

Yop
voila le code que j'utilise pour recuperer une valeur du registre : 

program Project2;

{$APPTYPE CONSOLE}

uses
  windows,registry ,
  SysUtils;
var
Hexa : string ;

Function HexToInt (Value:string) : Integer;
begin
result := StrToInt('$'+Value);
end;

function RegistryRead(const Subkey, ValueName: string):string;
var
  valueType: DWORD;
  valueLen: DWORD;
  buffer: PChar;
  key: HKEY;
begin
   if RegOpenKeyEx(HKEY_CURRENT_USER,
                  PChar(Subkey),
                  0, KEY_READ, key) = ERROR_SUCCESS then
  begin
      SetLastError(RegQueryValueEx(key,
                 PChar(ValueName),
                 nil,
                 @valueType,
                 nil,
                 @valueLen));
    if GetLastError = ERROR_SUCCESS then
    begin
      GetMem(buffer, valueLen);
      try
        RegQueryValueEx(key,
                      PChar(ValueName),
                      nil,
                      nil,
                      PBYTE(buffer),
                      @valueLen);
        Result:=StrPas(buffer)
      finally
        FreeMem(buffer)
      end
    end
    else
      raise Exception.Create('Cannot Read  Value')
  end;
end;

begin
writeln(registryread('Software\EES\PROG' , 'port'));
readln;
end.


mais mon probleme c'est que sur la BDR la valeur c'est : 7c 0a 00 00 , et mon prog affiche ceci : '|' au lieu de 7c 0a 00 00 .
je ne tient pas a utiliser registry dans les uses merci .

japee · Answer

heu... pourquoi tu "tient" pas &#224; utiliser registry dans les uses 



japee

Recuperer Valeur héxadecimal du registre windows

2 réponses

Votre réponse

Discussions similaires