Несколько вопросов по автозагрузке и трее в Delphi

[TaYgA]

Всем доброго времени суток. Нужна ваша помощь в нескольких вопросах:
1) Нужно сделать так, чтоб программа загружалась вместе с Windows, но была свёрнута в трей (используя компонент CoolTrayIcon)
2) Нужно сделать так, чтоб программа загружалась вместе с Windows и весела в процессах в свёрнутом виде, при нажатии на exeшник разварачивалась.
Буду очень признателен за любую помощь!!!

[raxp]

ну вроде как 1 и 2 вопросы одно и тоже... чтоб авто-загружалась пропишите свою программу в реестр (ключи автозагрузки думаю сами знаете), ну а чтоб свернута - не показывайте ее при создании showmainform:= false

[ОлеХ]

Если дельфа не будет скрывать как написал raxp(потому что у меня она не скрывает так глюкавая ведать ) , вот так должно получиться:

procedure TForm1.FormShow(Sender: TObject);
begin
Application.ShowMainForm := False;
ShowWindow(Application.Handle, SW_HIDE);
ShowWindow(Application.MainForm.Han dle, SW_HIDE);
end;

[TaYgA]

Ничего не выходит В процедуре FromCreate пишу:

      Reg:=TRegistry.Create;
      Reg.RootKey:=hkey_current_user;
      Reg.OpenKey('software\microsoft\windows\currentversion\run',true);
      Reg.WriteString('Project.exe',Application.ExeName);
      Reg.CloseKey;
      Reg.Free;

Программа компелируется, но после перезагрузки автоматически не запускается....

[ОДИНОЧЕСТВО В СЕТИ]

у вас по ходу ветка не та!
нужна HKEY_LOCAL_MACHINE

[TaYgA]

ОДИНОЧЕСТВО В СЕТИ, в очередной раз вам спасибо

Всё ещё ломаю голову над автозагрузкой. Я никогда не работал с реастром поэтому арентируюсь плохо, объясните пожалуйсто:
1) Когда мы пишем в процедуру FormCreate автозагрузку при каждом запуске программы она перезаписывается или нет? (в моём проекте используется настройка программы и мне требуется, чтоб каждый раз автозагрузка перезаписывалась)
2) Для удаления автозагрузки писал код:

      Reg.RootKey:=hkey_current_user;
      Reg.OpenKey('software\microsoft\windows\currentversion\run',true);
      Reg.deletevalue('Project');
      Reg.CloseKey;
      Reg.Free;

Автозагрузка не удалялась, пришлось заходить в реастр и удалять от туда. Что в коде неправильно?
3) При автозагрузке программа сворачивается в трей с помощью команды:

showmainform:= false

Если это прописывать в процедуре FormCreate и при запуске exeшника программа тоже сворачивается в трей. Нужно, чтоб только при автозагрузке...
4) Как сделать, чтоб при запуске exeшника, если программа уже запущена, она просто разварачивалась или становилась поверх всех окон?

[raxp]

ОДИНОЧЕСТВО В СЕТИ
у вас по ходу ветка не та!
нужна HKEY_LOCAL_MACHINE

ну почему-же не та... там вариантов масса...

TaYgA
1) Когда мы пишем в процедуру FormCreate автозагрузку при каждом запуске программы она перезаписывается или нет? (в моём проекте используется настройка программы и мне требуется, чтоб каждый раз автозагрузка перезаписывалась)

в formcreate будет перезаписываться... ниже код для создания и удаления:

//автозагрузка-
procedure arun(key,filename:string; p:boolean);
var hr:tregistry;
begin
 hr:=TRegistry.create;
 hr.RootKey:= $80000001;//HKEY_CURRENT_USER;
 hr.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
 if p then hr.WriteString(key,PChar(filename))
  else begin hr.DeleteKey(key);hr.DeleteValue(key);end;
 hr.CloseKey;hr.Free;
end;

придерживайтесь правила: 1 вопрос - 1 тема

[TaYgA]

Несовсем ясно как этот код работает... При компеляции Delphi ругается на key и на p. Куда вписывать путь к файлу?

if p then hr.WriteString(key,PChar(filename))
  else begin hr.DeleteKey(key);hr.DeleteValue(key);end;

На сколько я понял происходит проверка... Если записи в реастре нет, то создать, в противном случае удалить запись.... Это так?

[raxp]

чего ей ругаться...

procedure arun(key,filename:string; p:boolean);

key - имя ключа, любое, например 'ла-да-ла'
filename - абсолютный путь к вашему exe, из paramstr(0) например
p= true - создать, false - удалить

[TaYgA]

raxp, спасибо, понял в чём была ошибка