...

Листинг 7.19.

Отмена быстрого запуска приложения

procedure UnregisterQuickStart();

var

reg: TRegistry;

begin

reg := TRegistry.Create();

reg.RootKey := HKEY_LOCAL_MACHINE;

//Удаляем сведения о программе из реестра

reg.DeleteKey(paths + \'\\' + Application.Title + \'.exe\');

reg.Free();

end;

В приведенных выше листингах значение константы paths равно:

Загрузка...