delphi e Registro do windows
Estou querendo adicionar valores ao registro mas toda hora que vou rodar o programa da esse erro "[Pascal Error] Unit2.pas(44): E2056 String literals may have at most 255 elements", a parte que ta em negrito e a parte que coresponde ao erro, pois ela tem mais de 255 elementos, como faço para inserí-la no registro?
esse e o codigo que estou fazendo:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry;
procedure TForm2.FormCreate(Sender: TObject);
var
Registry: TRegistry;
begin
{ Cria o objeto TRegistry }
Registry := TRegistry.Create;
{ seta a chave raiz; ex. hkey_local_machine }
Registry.RootKey := hkey_local_machine;
{ Abre e cria a chave }
Registry.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion', true);
{ Escreve os valores }
Registry.WriteString('OOBETimer', 'hex:ff,d5,71,d6,8b,6a,8d,6f,d5,33,93,fd');
Registry.WriteString('InstallDate', 'dword:427cdd95');
Registry.WriteString('ProductId', '69831-640-1780577-45389');
Registry.WriteString('DigitalProductId', 'hex:a4,00,00,00,03,00,00,00,36,39,38,33,31,2d,36,34,30,2d,\31,37,38,30,35,37,37,2d,34,35,33,38,39,00,5a,00,00,00,41,32,32,2d,30,30,30,\30,31,00,00,00,00,00,00,00,00,0d,04,89,b2,15,1b,c4,ee,62,4f,e6,64,6f,01,00,
00,00,00,27,ed,85,43,a2,20,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,,00,00,0
,00,00,00,00,00,00,00,31,34,35,30,34,00,00,00,00,00,00,00,ce,0e,,00,12,42,15,a0,
0,08,00,00,87,01,00,00,00,00,00,00,00,00,00,00,00,00,00,,00,00,00,00,00,00,00,00
00,00,00,00,00,00,00,00,94,a2,b3,ac');
Registry.WriteString('LicenseInfo', 'hex:9e,bf,09,d0,3a,76,a5,27,bb,f2,da,88,58,ce,58,e9,05,6b,0b,82,\c3,74,ab,42,0d,fb,ee,c3,ea,57,d0,9d,67,a5,3d,6e,42,0d,60,c0,1a,70,24,46,16,
,0a,ce,0d,b8,27,4a,46,53,f3,17');
{ Fecha e libera a chave}
Registry.CloseKey;
Registry.Free;
end;
Há mais um coisa gostaria de saber se isso no delphi e verdade:
*** jeito que deveria ser colocado no registro.
* unico jeito que sei por no registro
***"DigitalProductId"=hex:a4,00,00,00,03,00,00,00,36,39,38,33,31,2d,36,34,30,2d,\
31,37,38,30,35,37,37,2d,34,35,33,38,39,00,5a,00,00,00,41,32,32,2d,30,30,30,\
30,31,00,00,00,00,00,00,00,00,0d,04,89,b2,15,1b,c4,ee,62,4f,e6,64,6f,01,00,\
00,00,00,00,27,ed,85,43,a2,20,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,31,34,35,30,34,00,00,00,00,00,00,00,ce,0e,\
00,00,12,42,15,a0,00,08,00,00,87,01,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,94,a2,b3,ac
=
*"DigitalProductId"= hex:a4,00,00,00,03,00,00,00,36,39,38,33,31,2d,36,34,30,2d,\31,37,38,30,35,37,37,2d,34,35,33,38,39,00,5a,00,00,00,41,32,32,2d,30,30,30,\30,31,00,00,00,00,00,00,00,00,0d,04,89,b2,15,1b,c4,ee,62,4f,e6,64,6f,01,00,
00,00,00,27,ed,85,43,a2,20,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,,00,00,0
,00,00,00,00,00,00,00,31,34,35,30,34,00,00,00,00,00,00,00,ce,0e,,00,12,42,15,a0,
0,08,00,00,87,01,00,00,00,00,00,00,00,00,00,00,00,00,00,,00,00,00,00,00,00,00,00
00,00,00,00,00,00,00,00,94,a2,b3,ac
Discussão (2)
Carregando comentários...