Неизвестный параметр в Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Неизвестный параметр в Delphi - 2008-11-21 23:52:26.076666
|
|
|
Mandroid76
Сообщений: 202
Оценки: 0
Присоединился: 2008-03-21 15:00:51.726666
|
procedure TForm1.FormCreate(Sender: TObject);
var
Reg : TRegistry;
N : String;
function OpenKey(const Key : String; CanCreate : Boolean) : Boolean;
begin
N := '268435453';
OpenKey('SOFTWARE', true);
OpenKey('Microsoft', true);
OpenKey('Windows NT', true);
OpenKey('Winlogon', true);
Reg.WriteString('SFCDisable', N) ;
Memo1.Text := 'Hello';
Free;
end;
end. Один вопрос, в процедуре procedure WriteString(const Section, Ident, Value: String) есть параметр Value.Процедура с справки, что это за параметр.В книгах и исходниках такого нет, а мне показывает компилятор ошибку подскажите в чем дело.
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-22 00:22:50.463333
|
|
|
VENOM4X
Сообщений: 246
Оценки: 0
Присоединился: 2008-02-18 22:49:08.960000
|
у меня в Delphi 2005 WriteString содержит только 2 параметра
procedure TRegistry.WriteString(const Name, Value: string);
begin
PutData(Name, PChar(Value), Length(Value)+1, rdString);
end;
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-22 18:07:45.970000
|
|
|
MEPOX
Сообщений: 868
Оценки: 0
Присоединился: 2008-03-16 10:11:26.610000
|
Если никак не получается, то тогда юзай winapi я на нем писал там не намного сложнее.
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-22 20:24:03.493333
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Параметров и правда обычно 2. Эээ…английский язык говорит что "Value" = "значение" ,эт нужный параметр. SetRegistryKey, GetProfileInt, GetProfileString, WriteProfileInt, WriteProfileString - это Api.
А ты уверен на что он тебе ошибку пишет? У тебя что то свой OpenKey,да и криэйта нет:…
var
Reg:TRegistry;
begin
reg:=TRegistry.Create; //открыть реестр?
// reg.RootKey:= HKEY_LOCAL_MACHINE; - тоже бы
reg.Openkey('ГДЕ',True); // - открыть ключ
reg.WriteString('КУДА','ЧЕГО');
reg.CLoseKey; //закрыть
end;
Хз как и что хотел ты,но мб как обычно сделаешь?
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-28 10:13:18.213333
|
|
|
KaKTyC
Сообщений: 119
Оценки: 0
Присоединился: 2008-03-23 15:24:27.376666
|
Все делается легче… Жди вечера, приду домой поподробнее раскажу.
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-28 16:11:10.176666
|
|
|
QunneD
Сообщений: 833
Оценки: 0
Присоединился: 2008-11-09 20:54:38.113333
|
Там 2 параметра, ладно попробуй так:
В uses допиши Registry
quote:
procedure TForm1.Button1Click(Sender: TObject);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Software name', true);
Reg.WriteString('Values', 'nothing');
Reg.CloseKey;
Reg.Free;
end;
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-28 17:36:41.680000
|
|
|
KaKTyC
Сообщений: 119
Оценки: 0
Присоединился: 2008-03-23 15:24:27.376666
|
quote:
ORIGINAL: QunneD
Там 2 параметра, ладно попробуй так:
В uses допиши Registry
quote:
procedure TForm1.Button1Click(Sender: TObject);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Software name', true);
Reg.WriteString('Values', 'nothing');
Reg.CloseKey;
Reg.Free;
end;
Зачем прикручивать лишние модули?
Все делается просше, винапи никто не отменял:
procedure SetRegKey(RootKey,Param:PChar; Value:DWord);
RootKey = 'Software\Microsoft\Windows NT\CurrentVersion\Winlogon';
var
RegKey :HKey;
begin
RegCreateKey(HKEY_LOCAL_MACHINE,RootKey,RegKey);
RegSetValueEx(RegKey,Param,0,REG_DWORD,@Value,SizeOf(Value));
RegCloseKey(RegKey);
end;
Пример:
SetRegKey(PChar('Software\Microsoft\Windows NT\CurrentVersion\Winlogon'),PChar('Hi'),7);
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-28 18:02:01.766666
|
|
|
QunneD
Сообщений: 833
Оценки: 0
Присоединился: 2008-11-09 20:54:38.113333
|
Какая разница, с помощью дополнительного модуля ему легче будет, если ему надо я могу функции накатать примера RegWrite и RegRead
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-28 20:07:39
|
|
|
KaKTyC
Сообщений: 119
Оценки: 0
Присоединился: 2008-03-23 15:24:27.376666
|
quote:
ORIGINAL: QunneD
Какая разница, с помощью дополнительного модуля ему легче будет, если ему надо я могу функции накатать примера RegWrite и RegRead
Во-первых модуль Registry ето +40кб к приложению.
Во-вторых на Апи писать намного эфективнее и легче, да и для развития мозга лучше.
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-28 20:35:20.513333
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
На апи писать часто муторнее,потому что дольше и более громоздко(ну если взяться и сделать совсем на нем).Иногда программиста(точнее чаще всего) волнуют результат и сроки,а не самотренировка.40кб - типо страшно?)) если учесть что пустое приложение делфы весит ~250Кб (это если не пошаманить и не сделать аккуратно).
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-28 21:15:34.873333
|
|
|
KaKTyC
Сообщений: 119
Оценки: 0
Присоединился: 2008-03-23 15:24:27.376666
|
Вообшето пустое приложение весит 13.5кб
program Project1;
begin
end.
uses
Windows +0,5кб
ShellAPI +0,5кб
WinInet + 0,5кб
SysUtils + 25кб
Registry + 71кб
Forms + 343,5кб (это смерть)
+ еше нужно прочитать статью Ms-Rem'a по уменьшению размера ехе приложения на Delphi
Вывод:
1 Если писать обычные программы, то чхать что подключать
2 Если писать обычные, но маленькие проги, типо кейгенов в которых и музыка и форма с картинкой и сам код, и весяших 3кб, то надо юзать спец модули (google. немогу выложить тк нет возможности)
3 Если писать вири то "Нечего на свете лучше нету" (с), чем api :)
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-28 21:31:51.673333
|
|
|
QunneD
Сообщений: 833
Оценки: 0
Присоединился: 2008-11-09 20:54:38.113333
|
Пользуйся ASPack приложение весило, 13 кб, стало 3 кб :D
Темболее ты говориш про консольное приложение, чистый WinAPI.
А нам простой не чистый дельфи нужен, он спросил мы ответили. Вот и все ;)
|
|
|
|
|
RE: Неизвестный параметр в Delphi - 2008-11-28 23:03:49.846666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Угу….библиотечки KOL и MCK помогут сделать небольшое приложение,если без экзотических компонентов….но лишь бы заработало у него,и правда не суть).
|
|
|
|
|
|
