[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

01.05.2009, 12:33

Stil Free

Познающий

Регистрация: 20.12.2008

Сообщений: 46

Провел на форуме:
123070

Репутация: 9

Цитата:

Сообщение от diznt

PHP код:


		
			
procedure TForm1.Button1Click(Sender: TObject);

var

 reg:TRegistry;

begin

 reg:=TRegistry.create;

 reg.RootKey:=HKEY_CURRENT_USER;

 reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run\', true);

 if reg.KeyExists('my_key_name') then

  begin

   exit;

  end

 else

  begin

   reg.WriteString('my_key_name','"c:\1.exe"');

  end;

end;

а вообще в гугле введи, "Работа с реестром delphi"
там будет этого добра навалом и быстро освоишься с реестром так как с ним легко работать в делфи

//пробелы убрать в коде

Да всё я искал там нифига нет того что я ищу,

Код HTML: