Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;




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




Наверх





Память: 0.72 MB
Время: 0.035 c
1-100009          IronHawk              2002-01-14 17:06  2002.01.31  
QReport...


1-99930           dimonf                2002-01-12 21:07  2002.01.31  
Проблема маштабирования и просмотра графика.


1-99940           greenrul              2002-01-13 14:46  2002.01.31  
Подскажите лучший метод реализации этой идеи ->>


3-99840           777                   2001-12-26 03:03  2002.01.31  
TDBGrid и Ширина столбца. Все что мне посоветовали это здорово но как реально это сделать...


14-100039         GydruS                2001-12-05 08:33  2002.01.31  
Как отучить людей от лапанья экранов?(в компьютерных классах)