Registry

← →
Parus © (2006-11-23 20:02) [0]

как записать в переменную REGINI параметр:
00 00 00 00 00 00 00 00 03 00 00 00 00 00 5B E0 00 00 00 00
вот чо НЕ работает:

procedure TForm1.Button1Click(Sender: TObject);
var regini:TRegIniFile;Buffer:int64;s:string;
begin
s:="00000000000000000300000000005BE000000000";
Buffer:=strtoint("$"+s);
regini:=TRegIniFile.Create("Software");
regini.RootKey:=HKEY_LOCAL_MACHINE;
regini.OpenKey("SYSTEM",true);
regini.OpenKey("CurrentControlSet",true);
regini.OpenKey("Control",true);
regini.OpenKey("Keyboard Layout",true);
regini.writeBinaryData("Scancode Map",buffer,999);
regini.Free;
end;

← →
Parus © (2006-11-23 20:13) [1]

> regini.writeBinaryData("Scancode Map",buffer,999);

Вот это самая проблемная строчка, забыл сказать

← →
Чапаев © (2006-11-23 20:15) [2]

> [0] Parus © (23.11.06 20:02)
TRegIniFile данные всех типов пишет как строки. Пользуйся обыкновенным TRegistry.

← →
Parus © (2006-11-23 20:31) [3]

Самая прооблема дать параметр 00000000000000000300000000005BE000000000
в
regini.writeBinaryData

напиши плиз код добавления параметра в реестр с var regini:TRegInifile;

← →
Чапаев © (2006-11-23 20:33) [4]

Читать умеешь? RegIniFile не умеет писать двоичные данные. Используй TRegistry.

← →
Parus © (2006-11-23 20:35) [5]

> Используй TRegistry.

А как записать с помощью TRegistry двоичные данные?{??????????????}

← →
Parus © (2006-11-23 20:44) [6]

Ну есть тут хоть 1 толковый программер??

← →
Чапаев © (2006-11-23 20:45) [7]

Нет меня, нету... Спи...

← →
saxon (2006-11-23 20:45) [8]

Все домой пошли... спать ... :)

← →
Parus © (2006-11-23 20:50) [9]

> Все домой пошли... спать ... :)

...а я и так дома

← →
Anatoly Podgoretsky © (2006-11-23 22:32) [10]

> Parus (23.11.2006 20:02:00) [0]

Используй TRegistry

← →
Anatoly Podgoretsky © (2006-11-23 22:33) [11]

> Parus (23.11.2006 20:50:09) [9]

Тогда сходи к соседке или водочки выпей, полегчает.

← →
Marser © (2006-11-24 01:26) [12]

> Anatoly Podgoretsky © (23.11.06 22:33) [11]
> > Parus (23.11.2006 20:50:09) [9]
>
> Тогда сходи к соседке или водочки выпей, полегчает.

Окститесь! :-)

Login: PARUS E-mail: RUS05_95@mail.ru Реальное имя: РУСЛАН Дата рождения: 08.02.1995

← →
KilkennyCat © (2006-11-24 01:28) [13]

> [12] Marser © (24.11.06 01:26)

тогда к однокласснице, молока.

← →
Anatoly Podgoretsky © (2006-11-24 08:41) [14]

> Marser (24.11.2006 01:26:12) [12]

В его возрасте я и не то делал.

← →
Parus © (2006-11-24 09:19) [15]

Вот чо вышло исходник потом дам инат канчаается
http://moiprog.narod.ru/PUSK.rar

← →
Parus © (2006-11-24 09:26) [16]

> Вот чо вышло исходник потом дам инат канчаается

Извините за невнятные слова... Просто я когда в инете очень тороплюсь(я в инет вылажу по дайлапу, времени).
исходник:= //button1-отключить кнопку ПУСК|| button2- включить|| button3- about
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,registry, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button3Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; regini:TRegIstry; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var s:array[1..24] of byte; begin s[1] :=$00; s[2] :=$00; s[3] :=$00; s[4] :=$00; s[5] :=$00; s[6] :=$00; s[7] :=$00; s[8] :=$00; s[9] :=$03; s[10]:=$00; s[11]:=$00; s[12]:=$00; s[13]:=$00; s[14]:=$00; s[15]:=$5B; s[16]:=$E0; s[17]:=$00; s[18]:=$00; s[19]:=$5C; s[20]:=$E0; s[21]:=$00; s[22]:=$00; s[23]:=$00; s[24]:=$00; regini.writeBinaryData("Scancode Map",s[1],24); button1.Enabled:=false; exitwindowsex(EWX_FORCE,0); end; procedure TForm1.Button2Click(Sender: TObject); begin regini.Deletevalue("Scancode Map"); button2.Enabled:=false; exitwindowsex(EWX_FORCE,0); end; procedure TForm1.FormCreate(Sender: TObject); begin regini:=TRegIniFile.Create("Software"); regini.RootKey:=HKEY_LOCAL_MACHINE; regini.OpenKey("SYSTEM",true); regini.OpenKey("CurrentControlSet",true); regini.OpenKey("Control",true); regini.OpenKey("Keyboard Layout",true); if regini.ValueExists("Scancode Map") then button1.Enabled:=false else button2.Enabled:=false; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin regini.Free; end; procedure TForm1.Button3Click(Sender: TObject); begin showmessage("Эта программа нужна чтобы отключить/включить кнопку "Пуск" на клавиатуре"); end; end.

Шо, опять?!

А у меня IntelliType позволяет Пуск и КапсЛок отключать. И писать ничего не надо.

> Шо, опять?!

Чо использую TREGISTRY, а чо апять?

Торопиться не надо, отключись напиши в блокноте, перечитай, а потом может и постить не захочется
я так завсегда делала

> Торопиться не надо

Я твоим способом чаще всего и делаю, не всегда ест желание отключатся

а можно на WinAPI все написать.

см RegOpenKeyEx, RegSetValueEx

> Parus (24.11.2006 10:30:21) [21]

Можем помочь.

Registry Найти похожие ветки