Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Реестр 
:(
    Опции темы
Volkogriz
  Дата 9.5.2008, 20:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1
Доброе время суток!
Пдскажите пачиму не работает!? smile 
Код

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls ,Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Editbox1: TEdit;
    Editbox2: TEdit;
    Label1: TLabel;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }

  end;

var
  Form1: TForm1;
   Reg:TRegistry;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
 reg:=treginifile.create('software');
 reg.rootkey:=hkey_local_machine;
 reg.openkey('SOFTWARE\Microsoft\Windows NT\CurrentVersion', true);
 reg.WriteFloat('DigitalProductId', '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');   
reg.free;
end;

end;

Зарание блогодарен!
С уважением  Volkogriz!
--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
SneG0K
Дата 9.5.2008, 23:50 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Цитата(Volkogriz @  9.5.2008,  19:47 Найти цитируемый пост)
Пдскажите пачиму

Патамучта песать нада нармальным язеком!

Код

reg.WriteFloat
Записывает число в с палавующей точкой, а не ту белиберду=) Даже если расшифровать хексом, то там даже и близко точки нет!
PM WWW Skype   Вверх
THandle
Дата 10.5.2008, 10:08 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Код

procedure TForm1.Button1Click(Sender: TObject);
const
  Buf : string = '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';
begin
  with TRegistry.Create do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey('Software\Microsoft\Windows NT\CurrentVersion', true);
      WriteString('DigitalProductId', Buf);
      Free;
    end;
end;



И какое это имеет отношение к звуку, графике и видео?
PM   Вверх
Volkogriz
Дата 12.5.2008, 07:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1
Всем огромное спасибо особенно THandle!
Ты меня довольно часто вырручаеш  smile 
А на счёт: 
Цитата
И какое это имеет отношение к звуку, графике и видео?

У меня в закладках висит именно эта страничька!  smile  smile 
--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0899 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.