Отображение ярлыков на форме

[berlios]

с помощью какого компонента можно отображать на форме ярлыки?

[s.Creator]

например с помощью ListView

[berlios]

А как в ListView затащить ярлык который потом можно будет использовать по назначению?

[puporev]

Иконку программы удобно загружать в Image. Потом по OnClick этого компонента запускать программу.

[s.Creator]

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

А как в ListView затащить ярлык который потом можно будет использовать по назначению?

Не совсем понял что значит затащить и что значит использовать по назначению.
в Delphi 7 есть пример работы с ListView
Program Files\Borland\Delphi7\Demos\Virtual Listview

[berlios]

У меня 2009 делфи.
Мне нужно что бы ярлыки в программе выглядели и работали точно так же допустим как на рабочем столе.

[zotox]

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

с помощью какого компонента можно отображать на форме ярлыки?

Запуск при помощи кнопки:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellApi;

  //Обяз обрати на ShellApi в Uses

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);   //Обработчик когда наша программа стартовала
    procedure Button1Click(Sender: TObject); //Наш обработчик кнопки для запуска
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.Items.Add('Lalala.lnk');
 //Добавляем в ЛистБокс текст Lalala.lnk
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
begin
 if ListBox1.ItemIndex=-1 then exit;
 //В случае если ничего не выбранно то обработчик кнопки прекращает вып. действия

 s:='c:\1\'; //Где хранятся наши ярлыки :-)

 ShellExecute(Form1.Handle,nil,pchar(s+ListBox1.Items[ListBox1.ItemIndex]),nil,nil,SW_NORMAL);
 //Запускаем программу
end;

end.

Запуск по нажатию на ЛистБокс:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellApi;

  //Обяз обрати на ShellApi в Uses

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);   //Обработчик когда наша программа стартовала
    procedure Button1Click(Sender: TObject);
    procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s:string; //В переменной S будет хранится наш каталог где ярлыки

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 s:='c:\1\'; //Где хранятся наши ярлыки :-)
 ListBox1.Items.Add('Lalala.lnk');
 //Добавляем в ЛистБокс текст Lalala.lnk
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
end;

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if ListBox1.ItemIndex=-1 then exit;
 //В случае если ничего не выбранно то обработчик кнопки прекращает вып. действия

 ShellExecute(Form1.Handle,nil,pchar(s+ListBox1.Items[ListBox1.ItemIndex]),nil,nil,SW_NORMAL);
 //Запускаем программу
end;

end.

Процедура FormCreate, автособираловка ярлыков в указанной директории:

procedure TForm1.FormCreate(Sender: TObject);
var
 SR:TSearchRec;
 //Переменная для поиска
 FindRes:integer;
 s:string;
begin
 s:='c:\1\'; //Где хранятся наши ярлыки :-)

 FindRes:=FindFirst(s+'*.lnk',faAnyFile,SR);
 //Говорим переменной FindRes что мы будем искать файлы в указанной директории (т.е. s),
 while FindRes=0 do
 //Пока FindRes=0 то файлы еще будут в каталоге
  begin
    //Убираем точки возврата на каталог выше
    if ((SR.Name='.')or(SR.Name='..')) then
     begin
      FindRes:=FindNext(SR);
      Continue;
     end;
    ListBox1.Items.Add(SR.Name);
    //Добавляем в ЛистБокс имя файла
    FindRes:=FindNext(SR);
    //Говорим FindRes что нам нужен след. файл и с этим файлом (с текущим) мы закончили работу
  end;
end;

[berlios]

Пасибо! А с картинками как быть!?

[zotox]

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

Пасибо! А с картинками как быть!?

Был где то ListBox с картинками в делфи (чтобы отображался как на раб столе примерно)

Но лучше поставить свои картинки если ты не планируешь их изменять в зап. программе
(к примеру если ты будешь выводить ярлыки с раб.стола к себе в программу то замечательно подойдет Listbox с картинками(т.е. компонент Image который отображает картинки тут не подойдет(может подойти но будет муторно делать такую программу)))

[puporev]

Вот пример с картинкой. Путь к файлу для запуска свой напишите.