- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
procedure TForm1.registration;
var
reg:TRegistry;
i,lbc:integer;
aentsys,alawarkey:boolean;
const
dw:DWORD =1800000;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
aentsys:= reg.KeyExists('software\Aent Sys');
alawarkey:=reg.KeyExists('software\Alawar');
//aentsys
if aentsys = true then
begin
reg.OpenKey('software\Aent Sys\pr',true);
reg.GetKeyNames(ListBox1.Items);
reg.CloseKey;
lbc:=listbox1.Items.Count;
sProgressBar1.Max:=lbc*10;
i:=0;
while not (i=lbc) do
begin
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('software\Aent Sys\pr',true);
reg.OpenKey(ListBox1.Items.Strings[i],true);
reg.GetKeyNames(ListBox2.Items);
reg.OpenKey(ListBox2.Items.Strings[0],true);
reg.WriteInteger('Program',dw);
sProgressBar1.Position:= sProgressBar1.Position+10;
i:=i+1;
listbox2.Clear;
reg.CloseKey;
end;
end;
i:=0;
listbox2.Clear;
listbox1.clear;
lbc:=0;
//alawar key
if alawarkey = true then
begin
reg.OpenKey('software\Alawar\play',true);
reg.GetKeyNames(ListBox1.Items);
reg.CloseKey;
lbc:=listbox1.Items.Count;
sProgressBar1.Max:=lbc*10;
i:=0;
while not (i=lbc) do
begin
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('software\Alawar\play',true);
reg.OpenKey(ListBox1.Items.Strings[i]+'\trial',true);
reg.GetKeyNames(ListBox2.Items);
reg.OpenKey(ListBox2.Items.Strings[0],true);
reg.WriteInteger('Program',dw);
sProgressBar1.Position:= sProgressBar1.Position+10;
i:=i+1;
listbox2.Clear;
reg.CloseKey;
end;
end;
end;
Заново даёт триццать минут для игры от компании Alawar))) аццкое гавно
xXx_totalwar 10.06.2010 17:58 # 0
еще один урсус
3.14159265 10.06.2010 18:04 # −1
вот c06a - выдал сразу десяток и все были охуенные и доставляли своей необычностью
может стоит ввести для новичков ограничение - не больше 2-х гкодов в сутки
кому не влом - добавьте на рефактор или дайте линк если такое есть
bugmenot 15.06.2010 19:25 # 0
bugmenot 15.06.2010 19:27 # 0