:Приветствую
Вот у меня есть папка с ярлыками. Как можно все их програм но разместить в моей TPopupMenu, чтоб еще и с картинками самих ярлычков?

Смотри инфу по функциям ExtractIcon, ExtractIconEx, ExtractAssociatiedIcon

Budy
примерно так - кидаешь на форму Button, PopupMenu и ImageList
PopupMenu1.Images := ImageList1
Button1.PopupMenu := PopupMenu1

добавь в Uses модули FileCtrl, ShellAPI, CommCtrl

и на OnClick кнопки пиши :::

Код

procedure TForm1.Button1Click(Sender: TObject); var  ListFiles: TStringList;  Path: string;  SearchRec: TSearchRec;  i: integer;  NewItem: TMenuItem;  ico: TIcon;  fi: SHFILEINFO; begin  Path := ExtractFileDir(Application.ExeName);  ListFiles := TStringList.Create;  ListFiles.Sorted := true;  if SelectDirectory('', '', Path) then  begin    if FindFirst(Path + '\*.lnk', faAnyFile, SearchRec) = 0 then    begin      repeat        if (SearchRec.Attr and faDirectory) = 0 then          ListFiles.Add(SearchRec.Name);      until FindNext(SearchRec) <> 0;      FindClose(SearchRec);    end;  end;  Memo1.Clear;  Memo1.Lines := ListFiles;  ico := TIcon.Create;  for i := 0 to ListFiles.Count - 1 do  begin    SHGetFileInfo(PChar(ListFiles.Strings[i]), 0, fi, 0, SHGFI_ICON or SHGFI_SMALLICON);    ico.Handle := fi.hIcon;    ImageList_AddIcon(ImageList1.Handle, ico.Handle);  end;  ico.Free;  PopupMenu1.Images := ImageList1;  for i := 0 to ListFiles.Count - 1 do  begin    NewItem := TMenuItem.Create(Self);    NewItem.Caption := ExtractFileName(ListFiles.Strings[i]);    NewItem.ImageIndex := i;    PopupMenu1.Items.Add(NewItem);  end;  ListFiles.Free; end;

вот только фиг знает как убрать стрелки снизу-справа

Это сообщение отредактировал(а) AriX - 14.7.2004, 16:51

Ага, спасибо! ЗЫ.Счас кодик попробую
А вот еще вопрос, как запустить эту ссылку. Ведь когда создаешь TPopupMenu, то он пустой, а для каждой "ссылки" нужно еще и процедуру писать.
И какой процедурой запускать ссылку?

можно сделать так :::

Path: string; - вытащи в глобальные переменные

ОБЯЗАТЕЛЬНО сделай PopupMenu1.AutoHotkeys := maManual (иначе Caption'ы будут с символом &)

вот в этой части

Код

for i := 0 to ListFiles.Count - 1 do  begin    NewItem := TMenuItem.Create(Self);    NewItem.Caption := ExtractFileName(ListFiles.Strings[i]);    NewItem.ImageIndex := i;    PopupMenu1.Items.Add(NewItem);  end;

сделай так

Код

for i := 0 to ListFiles.Count - 1 do  begin    NewItem := TMenuItem.Create(Self);    NewItem.Caption := ExtractFileName(ListFiles.Strings[i]);    NewItem.ImageIndex := i;    NewItem.OnClick := MenuItemClick;    PopupMenu1.Items.Add(NewItem);  end;

и сама процедура (обязательно не забудь продекларировать ее в TForm1!!!)

Код

procedure TForm1.MenuItemClick(Sender: TObject); begin  ShellExecute(Application.Handle, '', PChar(Path + '\' + (Sender as TMenuItem).Caption), '', '', SW_SHOWNORMAL); end;

нууу, думаю разберешься

------------------------------------------------------------
можно конечно изварачиваться - узнать параметры запуска в ярлыке для программы, рабочую папку...
если надо - или смотри в FAQ'e (там есть как узнать информацию о ярлыке) - или пиши - разберем

to AriX :
Я гляжу ты переделал пример с ExtractAssociatedIcon на SHGetFileInfo? .

Петрович
ага у меня просто на ярлыки были картинки большие, и если делать ExtractAssociatedIcon - то они как-то уменьшаются криво, а SHGetFileInfo с флагом SHGFI_SMALLICON это лучше делает - вот и поменял %)

Спасибо. Код я попробовал. Вот только иконок в PopupMenu не видно
Сейчас с запуском попробую.

Цитата

Спасибо. Код я попробовал. Вот только иконок в PopupMenu не видно

Странно, у меня похожий код работает.

AriX:

Цитата

можно конечно изварачиваться - узнать параметры запуска в ярлыке для программы, рабочую папку... если надо - или смотри в FAQ'e (там есть как узнать информацию о ярлыке) - или пиши - разберем

Ну раз Вы не против, то можно:
Как получить "Свойства ссылки" при нажатии в PopupMenu на какую-нить ссылку правой кнопкой мыши?
Или немедленно показать Hint с местоположением файла ссылки.
Добавлено @ 11:24

Цитата

Странно, у меня похожий код работает.

Да? А у меня вот нет
Может слишком много ссылок?

ЗЫ.Те, у кого с картинками: "У вас какая ося стоит?"
ЗЫ.ЗЫ.Хотя врядли в етом дело

Это сообщение отредактировал(а) Budy - 15.7.2004, 11:41

Budy
это уже совсем не по теме вопросы
и вообще вроде нельзя (по крайней мере стандартными способами) узнать что на итем попапа нажали именно правой кнопкой, и хинт тоже нельзя сделать
Добавлено @ 12:34
у меня XP стоит... странно что у тебя нету... ты точно все сделал - может ImageList забыл кинуть на форму.... вообще могу свой код кинуть - посмотри будет у тебя работать или нет :-/

Так то у меня в W98 Delphi стоит. С XP'шкой пока проблемы - надо нормальную версию взять.
А вот Пуск в 98ой винде ето ж вроде тоже Popup??!

это окно ( если ты про кнопку )

Народ, а зачем так изгаляться ? Ведь проще создать PopupMenu (пункты меню) в конструкторе и в свойствах каждого пункта присвоить ему ярлычок. Единственное что программно уменьшить можно.