[Emush]

Привет. Возникла необходимость сделать такую фичу. К иконке CoolTrayIcon привязано PopupMenu1. Так же в папке с exe лежит ini-файл, с некоторой информацией, вида:

Код:

1 2 3 4 5 6

[Text] Название 1=Text1 Название 2=Text2 Название 3=Text3 Название 4=Text4 Название 5=Text5

Необходимо, чтоб при открытие программы (OnCreate) формировались подпункты, с "Названиями"

а на клике была функция с копированием в буфер "Text"ов

Код:

1	Clipboard.AsText:='Text1';

[Страдалецъ]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

unit Unit28;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Menus, StdCtrls;   type   TForm28 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure PopupMenuItemClick(Sender: TObject);   end;   var   Form28: TForm28;   implementation  Uses IniFiles, Clipbrd;   {$R *.dfm}   procedure TForm28.FormCreate(Sender: TObject); Var   IniFile: TIniFile;   IniSection: TStringList;   SubMenu: TMenuItem;   i: Integer; begin  PopupMenu := TPopupMenu.Create(Self);  PopupMenu.AutoHotkeys := maManual;  PopupMenu.Items.Add(TMenuItem.Create(Self));  SubMenu := PopupMenu.Items[PopupMenu.Items.Count - 1];  SubMenu.Caption := 'Text';    IniSection := TStringList.Create;  IniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'IniFile.ini');  IniFile.ReadSection('Text', IniSection);    for i := 0 to IniSection.Count - 1  do begin     SubMenu.Add(TMenuItem.Create(Self));     SubMenu.Items[SubMenu.Count - 1].Caption := IniFile.ReadString('Text', IniSection.Strings[i], '');     SubMenu.Items[SubMenu.Count - 1].OnClick := PopupMenuItemClick;     end;  IniSection.Free;  IniFile.Free; end;   procedure TForm28.PopupMenuItemClick(Sender: TObject); begin  Clipboard.Open;  Clipboard.AsText := TMenuItem(Sender).Caption;  Clipboard.Close; end;   end.

[MotoArhangel]

По мне удобнее: fw tray