Как свернуть прогу в трее

[CHITER]

Мне надо помочь в следующем:
1. Как свернуть прогу в трее;
2. Как сохранить цвет поля Мемо в ини файл;

[SERG1980]

uses inifiles;
2. procedure TForm1.FormDestroy(Sender: TObject);
var inifile:TIniFile;
begin
inifile:=Tinifile.Create(ExtractFil ePath(Application.ExeName)+'Myini.i ni');//сохраняем в каталоге программы
try
inifile.WriteInteger('Раздел','Назв ание',memo1.Color);
finally
inifile.Free;
end;
end

[Трофимов Александр]

для сворачивания программы проще всего использовать RxTrayIcon компонент из библиотеки RxLib.

[JTG]

Про трей было уже

[Fainder]

Сообщение от Трофимов Александр

для сворачивания программы проще всего использовать RxTrayIcon компонент из библиотеки RxLib.

Зачем изобретать велосипед, если TTrayicon давно входит в стандартную палитру компонентов. Переходите на Дельфу поновее.
ЗЫ: А тема и правда уже была и по-моему даже не раз

[Sergey_nl]

Один из вариантов помещения иконки в трей при использовании WinAPI можно найти здесь:
http://delphi.about.com/od/kbwinshell/l/aa121801a.htm
Однако, он не выглядит слишком изящным. Лично я использую RX
Скачать можно отсюда
http://sourceforge.net/projects/rxlib/
В Delphi 7 никаких компонентов для трея не наблюдается, а более новые дельфи слишком уж монстрообразны. ИМХО.

[CHITER]

а можете написать код сворачивания проги в трей с помощью RxTrayIcon

Парни короче столкнулся с другой проблемой!
Мне надо в ини файл сохранить выбор из ComboBox

[ЧИЖ]

работа с ini файлами практически такая же как с реестром
([ключи]\параметры=значения)

uses inifiles;
 
var MyINI:TIniFile;
 
 
MyINI:=TIniFile.Create('FileName');
MyINI.WriteString('MySecton','MyIdent',MyComboBox.Text);
{MyComboBox.Text:=MyINI.ReadString('MySection','MyIdent','Default');}
MyINI.Free;

кроме write/read string можно еще integer,float,bool.........

[Sergey_nl]

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

а можете написать код сворачивания проги в трей с помощью RxTrayIcon

Я делал следующим образом:

TI_Logo: TRxTrayIcon;
.....
//Обработчик кнопки "Свернуть"
procedure TFMain.MinimizeClick(Sender:TObject);
begin
  //Прячем основное окно
  Hide;
  //Прячем кнопку на таскбаре
  if IsWindowVisible(Application.Handle)then
    ShowWindow(Application.Handle, SW_HIDE);

end;
....

//Разворачиваем окно при двойном щелчке по иконке
procedure TFMain.TI_LogoDblClick(Sender: TObject);
begin
  //разворачиваем главное окно
  Application.Restore;
  //сбрасываем признак сворачивания
  if WindowState = wsMinimized then WindowState := wsNormal;
  //Отображаем окно
  visible:=true;
  //Принудительно устанавливаем окно поверх остальных
  SetForegroundWindow(Application.Handle);
end;

[CHITER]

парни посмотрите у меня код прочтения из ини правлен?
SettingsForm.StatusSelect.Checked:= F.ReadBool('StatusSelect','Boolean' ,SettingsForm.StatusSelect.Checked= true);