former,
Наличие файла проверяется функцией FileExists, наличие корректной библиотеки - LoadLibrary+GetProcAddress.
Добавлено @ 18:44
А вот небольшой пример из проекта:
| Код |
procedure TMainDisp.SetMenuApps;
var
i: Integer;
MI: TMenuItem;
begin
for i := 0 to mm.Items[0].Count-1 do mm.Items[0].Items[0].Free;
for i := pmIconTray.Items.Count-1 downto 3 do
begin
MI := pmIconTray.Items[i];
pmIconTray.RemoveComponent(MI);
MI.Free;
end;
for i := 0 to AppsCounter-1 do
begin
MI := TMenuItem.Create(mm);
MI.Caption := Apps[i].MenuStr;
MI.OnClick := OnStartAppsClick;
MI.Hint := Apps[i].CommentStr;
MI.Tag := i;
mm.Items[0].Add(MI);
MI := TMenuItem.Create(pmIconTray);
MI.Caption := Apps[i].MenuStr;
MI.OnClick := OnStartAppsClick;
MI.Tag := i;
pmIconTray.Items.Add(MI);
end;
end;
|
Здесь pmIconTray - PopupMenu.
Для гдавного меню изменений немного. |