Работа с ярлыками

[---FISHER---]

Здравствуйте Всем! Выскажите пожалуйста свои мысли по поводу возможного решения следующей задачи: мы нажимаем на кнопку, открывается стандартный диалог "Открыть", в нем выбираем файл *.exe, далее жмем Открыть, после этого создается новая кнопка, в значении свойста Glyph должен появиться значек этого экзэшника, и при нажатии этой кнопки запускаться сама эта экзэшка. Спасибо за внимание

[Volt]

ну вот пример в uses ShellAPI

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Icon: TIcon;
  Bitmap: TBitmap;
  FileInfo: SHFILEINFO;
begin
if OpenDialog1.Execute then
begin
 Icon := TIcon.Create;
 Bitmap := TBitmap.Create;
 icon.Handle := ExtractIcon(HInstance,PChar(OpenDialog1.FileName), 0);
 DestroyIcon(FileInfo.hIcon);
 Bitmap.Canvas.Draw(0, 0, Icon);

 Bitmap.Height := Icon.Height;
 Bitmap.Width := Icon.Width;
 Bitmap.Canvas.Draw(0, 0, Icon);


 Form1.SpeedButton1.Glyph.Assign(Bitmap);
 Bitmap.Free;
 Icon.Free;
end;
end;

[---FISHER---]

Мистер Volt, вы просто творите чудеса благодарю Вас. А как в ходе этой процедуры получить адрес этого экзешника? (извиняюсь за свою безграмотность в винАПИ, в скором времени обязательно изучу), и ещё как бы Вы сохраняли соответствие кнопок с путями экзэшников? Можно ли обойтись просто записью в .txt (например в процессе использования программы было создано 10 кнопок запускающих 10 соответствующих программ, как лучше сохранить эти соответствия)? И ещё кстати желательно чтобы после выхода из программы сохранялось не только соответствие линков, но и чтобы оставались иконки у кнопок

[Volt]

получить адрес этого экзешника OpenDialog1.FileName. На счет остального решать вам ___

[---FISHER---]

Спасибо. Хорошо