Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Вниз

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.


 
Чапаев ©   (2006-11-24 09:28) [17]

Шо, опять?!


 
Чапаев ©   (2006-11-24 09:29) [18]

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


 
Parus ©   (2006-11-24 09:31) [19]


> Шо, опять?!

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


 
k2 ©   (2006-11-24 09:49) [20]

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


 
Parus ©   (2006-11-24 10:30) [21]


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

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


 
StriderMan ©   (2006-11-24 10:35) [22]

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

см RegOpenKeyEx, RegSetValueEx


 
Anatoly Podgoretsky ©   (2006-11-24 10:40) [23]

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

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



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.5 MB
Время: 0.046 c
15-1164519371
@!!ex
2006-11-26 08:36
2006.12.17
KillXP


15-1164629045
Cyrax
2006-11-27 15:04
2006.12.17
Какой антивирус наиболее удобен ?


2-1165056870
Kotik
2006-12-02 13:54
2006.12.17
Работа с текстом


11-1141244125
appla
2006-03-01 23:15
2006.12.17
Проблема. КОЛ не генерирует корректний .inc файл


2-1164702396
Альберт
2006-11-28 11:26
2006.12.17
путь к файлу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский