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

Вниз

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

 
Win   (2001-10-20 12:30) [0]

Подскажите, как в реестре программно изменить значение строкового параметра (По умолчанию)="%1"%* на свой?


 
Anatoly Podgoretsky   (2001-10-21 20:19) [1]

Ясно троян пишем, обратись к Delphimun он уже пострадал на этом.


 
HDD   (2001-10-22 08:13) [2]

procedure TForm1.CheckBox31Click(Sender: TObject);
var
reg: TRegistry;
begin
case Checkbox31.Checked of
False: begin
Reg := nil;
try
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey("Software\CLASSES\Paint.Picture\DefaultIcon", false);
reg.WriteString("", "%1");
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
end;
True: begin
Reg := nil;
try
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey("Software\CLASSES\Paint.Picture\DefaultIcon", false);
reg.WriteString("", "C:PROGRA~1ACCESS~1MSPAINT.EXE,1");
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
end;
end;


 
nil   (2001-10-23 15:50) [3]

тоже самое, но правильнее и мне кажется проще.

procedure TForm1.CheckBox31Click(Sender: TObject);
procedure uWriteStrToRegestry(Key,Value: string);
var
reg: TRegistry;
begin
reg := Tregistry.Create;
try
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey(Key, false);
reg.WriteString("", Value);
reg.CloseKey;
except
...
end;
finally
reg.Free;
end;
end;

begin
if Checkbox31.Checked then
uWriteStrToRegestry("Software\CLASSES\Paint.Picture\DefaultIcon","C:PROGRA~1ACCESS~1MSPAINT.EXE,1")
else
uWriteStrToRegestry("Software\CLASSES\Paint.Picture\DefaultIcon","%1")
end;



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

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

Наверх





Память: 0.45 MB
Время: 0.004 c
1-99957
Дима М
2002-01-13 14:49
2002.01.31
Вопрос


1-99971
@andrew
2002-01-11 18:35
2002.01.31
ПРИВЕТ ВСЕМ!!! Не подскажите: как сделать так,


14-100060
123sss
2001-12-07 02:34
2002.01.31
О пиве, и проч.


6-100020
Unforgiven
2001-11-08 02:36
2002.01.31
Работа с майлслотами


3-99908
dmitryK
2001-12-29 12:43
2002.01.31
Через BDE к MSSQL6.5 в Delphi 6





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский