Автозагрузка или принудительный запуск

[GunSmoker]

Да, правильное решение - добавить параметр командной строки к команде автозапуска приложения.

Скажем, "/autorun"

В программе проверить -

if FindCmdLineSwitch('autorun') then
  // автозапуск
else
  // обычный запуск

Но никаких ParamStr с фиксированными волшебными константами!

А где именно?

Ты как программу в автозагрузку-то добавляешь?

[Alex Cones]

А где именно?

С:\programs\MyBlah\Blah.exe
||
\/
С:\programs\MyBlah\Blah.exe - theend

[_-Re@l-_]

Ты как программу в автозагрузку-то добавляешь?

Вот:

Procedure AutoRun(AppName:String;on:Integer);
var Reg:TRegistry;
begin
      Reg:=tregistry.create;
      with Reg do
      begin
            RootKey:=HKEY_CURRENT_USER;
            OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
            if on = 1 then
            WriteString(AppName,paramStr(0))
            else DeleteValue(AppName);
      end;
      Reg.CloseKey;
      Reg.Free;
end;

С:\programs\MyBlah\Blah.exe
||
\/
С:\programs\MyBlah\Blah.exe - theend

Alex Cones, я не то имел ввиду. Я спрашивал, где реестр находится Плохо просто у меня с этим.
P.S. А как с ключом-то прописать?

[veniside]

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

Но никаких ParamStr с фиксированными волшебными константами!

А что с ними не так?

[Alex Cones]

Procedure AutoRun(AppName:String;on:Integer);
var Reg:TRegistry;
begin
      Reg:=tregistry.create;
      with Reg do
      begin
            RootKey:=HKEY_CURRENT_USER;
            OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
            if on = 1 then
            WriteString(AppName,paramStr(0) + ' -billymustdie')
            else DeleteValue(AppName);
      end;
      Reg.CloseKey;
      Reg.Free;
end;

где реестр находится

Вы меня пугаете.

[_-Re@l-_]

Вы меня пугаете.

Ну, я же сказал, у меня с этим плохо. Я это не очень понимаю.
P.S. Спасибо за код .



Т.е по вашему примеру надо так?

If (M = 0) and
         (N = 0) and
         (Q = 0) and(FindCmdLineSwitch('autorun') Then
      Application.Terminate

[Alex Cones]

http://ru.wikipedia.org/wiki/%D0%A0%...%D1%80_Windows

[GunSmoker]

Вот:

Есть предложение разбирать код, а не бездумно его использовать. Это и есть код по работе к реестром.

Или хотя бы немного думать головой. Можно не знать, что делает этот код, но ты хотя бы знаешь что он делает твоей программе автозагрузку. Наверное, найти в этом коде имя своей программы и приписать к нему один параметр должно быть не очень сложно?

ParamStr(0) меняем на Format('"%s" %s', [ParamStr(0), '/autorun'])

ParamStr(0) - твоё приложение. Мы добавляем к нему параметр '/autorun'.

А что с ними не так?

Смеётесь? Как можно назвать программу, которая воспринимает параметр командной строки, только если он указан в фиксированном месте? Иначе как говно-кодом никак иначе, по-моему.

[veniside]

А, в этом смысле ) Я уже было подумал, что в ParamStr() бый найден баг какой-то.

[_-Re@l-_]

ParamStr(0) - твоё приложение.

Это я знаю. Но не более. Да и вообще, я автозагрузку добавляю только лишь по просьбе, сам никогда бы не стал её делать.