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

[berlios]

Что бы на форме были Ярлыки(картинка,при нажатии на которую открывается фаил присвоенный ей)

[zotox]

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

Что бы на форме были Ярлыки(картинка,при нажатии на которую открывается фаил присвоенный ей)

Ну вот пост от puporev, там как раз есть пример, он отлично подойдет под ваши нужды

[berlios]

puporev, А как сделать что бы были не мои картинки,а с ярлыка на который я указываю!?

Ладно.
А как тогда узнать куда ссылается ярлык, что бы потом можно было добавить к путю *.Ico ?

[puporev]

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

Обычно в комплекте программы есть файл иконки. Вот его и вставьте в Image с помощью свойства Picture-> Load

[berlios]

А как тогда узнать куда ссылается ярлык

[puporev]

Так Вы это и прописываете в обработчике события

ShellExecute (Form1.Handle, nil, '"D:\Мои документы\Календарь.xls"', nil, nil, SW_RESTORE);

Не забудьте добавить в Uses модуль ShellAPI

[zotox]

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

А как тогда узнать куда ссылается ярлык

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShlObj,ActiveX, ComObj;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
     function NameFromLink(LinkFileName: string): string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function Tform1.NameFromLink(LinkFileName: string): string;
var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
  FileInfo: TWin32FINDDATA;
  WidePath: array[0..MAX_PATH] of WideChar;
  Buff: array[0..MAX_PATH] of Char;
begin
  Result := '';
  if (fileexists(Linkfilename) = false) then
    exit;
  MyObject := CreateComObject(CLSID_ShellLink);
  MyPFile := MyObject as IPersistFile;
  MySLink := MyObject as IShellLink;
  StringToWideChar(LinkFileName, WidePath, SizeOf(WidePath));
  MyPFile.Load(WidePath, STGM_READ);
  MySLink.GetPath(Buff, Max_PATH, FileInfo, SLGP_UNCPRIORITY);
  Result := buff;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
 SR:TSearchRec;
 FindRes:integer;
 l,s:string;
begin
 s:='c:\1\lalala.lnk';
 l:=ExtractFileName(NameFromLink(s));
 edit1.text:=StringReplace(s,ExtractFileName(s),l,[rfReplaceAll, rfIgnoreCase]);
end;

end.

В edit1.text будет путь, давайте вы будете пользоваться гуглом а не мы за вас будем проект строить, так как вопросы детские, если что не понятно - спрашивайте

puporev это он запускает :-) а автору нужно чтобы ярлык вывел путь до программы :-)

[berlios]

Большое спасибо за помощь!

[puporev]

давайте вы будете пользоватся гуглом

Поддерживаю. Я например все сделал прямо сейчас, никогда раньше это не делал.

[zotox]

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

puporev, А как сделать что бы были не мои картинки,а с ярлыка на который я указываю!?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShlObj,ActiveX, ComObj, ExtCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
     function NameFromLink(LinkFileName: string): string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function Tform1.NameFromLink(LinkFileName: string): string;
var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
  FileInfo: TWin32FINDDATA;
  WidePath: array[0..MAX_PATH] of WideChar;
  Buff: array[0..MAX_PATH] of Char;
begin
  Result := '';
  if (fileexists(Linkfilename) = false) then
    exit;
  MyObject := CreateComObject(CLSID_ShellLink);
  MyPFile := MyObject as IPersistFile;
  MySLink := MyObject as IShellLink;
  StringToWideChar(LinkFileName, WidePath, SizeOf(WidePath));
  MyPFile.Load(WidePath, STGM_READ);
  MySLink.GetPath(Buff, Max_PATH, FileInfo, SLGP_UNCPRIORITY);
  Result := buff;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
 SR:TSearchRec;
 FindRes:integer;
 l,s:string;
begin
 s:='c:\1\lalala.lnk';
 l:=ExtractFileName(NameFromLink(s));
 if Copy(l,pos('.',l),length(l))='.txt' then
  begin
    Image1.Picture.LoadFromFile('D:\Documents and Settings\admin\Мои документы\favicon.ico');
  end;
 edit1.text:='Формат файла ярлыка: '+Copy(l,pos('.',l),length(l));

 //В моем случае c:\1\lalala.lnk будет ссылаться на файл с расширением .txt
end;

end.