Delphi. Трюки и эффекты

Регистрация приложения для запуска из командной строки

procedure RegisterQuickStart();

var

reg: TRegistry;

begin

reg := TRegistry.Create();

reg.RootKey := HKEY_LOCAL_MACHINE;

//Регистрируем программу для запуска по имени из

//командной строки

if reg.OpenKey(paths + \'\\' + Application.Title + \'.exe\', True)

then

begin

reg.WriteString(\'\', Application.ExeName);

reg.CloseKey();

end;

reg.Free();

end;