Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

иконка из ярлыка   Найти похожие ветки 

 
[BAD]Angel ©   (2004-04-21 10:27) [0]

можно ли вытащить иконку из ярлыка?

есть ярлык... мне надо поместить его иконку на кнопку... как бы это сделать?


 
[lamer]Barmaglot ©   (2004-04-21 11:09) [1]

Приблизительно так:


uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
 w:    word;
 hi:   HIcon;
 hd:   HDC;
begin
if opendialog1.Execute then
 begin
 Edit1.text:=OpenDialog1.FileName;
 hi:=ExtractAssociatedIcon(hinstance, PChar(Edit1.text), w);
 DrawIcon(hd, 0,0,hi );
 Image1.Picture.Icon.Handle:=Hi;
 end;

end;


 
[lamer]Barmaglot ©   (2004-04-21 11:27) [2]

только сейчас заметил, спешил : DrawIcon - не нужен.


 
easy ©   (2004-04-21 12:04) [3]

uses ShellApi;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Icon: TIcon;
 shInfo: TSHFileInfo;
 Bitmap: TBitmap;
begin
 OpenDialog1.Filter:= "ßðëûêè|*.lnk";
 if OpenDialog1.Execute then begin
   Icon := TIcon.Create;
   Bitmap := TBitmap.Create;
   try
     SHGetFileInfo(PChar(OpenDialog1.FileName), 0, shInfo, SizeOf(shInfo),
       SHGFI_ICON or SHGFI_SMALLICON or
       SHGFI_SYSICONINDEX);
     Icon.Handle := shInfo.hIcon;
     Bitmap.Width := 16;
     Bitmap.Height := 16;
     Bitmap.Canvas.Draw(0, 0, Icon);
     BitBtn1.Glyph := Bitmap;
   finally
     Bitmap.Free;
     Icon.Free;
   end;
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
3-1079523031
Raids
2004-03-17 14:30
2004.04.11
Не могу редактировать набор данных открытый через Query


14-1079058335
Santik
2004-03-12 05:25
2004.04.11
Скрытный почтовик


1-1082613777
Demi
2004-04-22 10:02
2004.04.11
Почему неработает функция прерывания int в программе на Delphi


1-1080224141
alex732
2004-03-25 17:15
2004.04.11
Цвет текста в RichEdit


14-1082407603
New Brahman
2004-04-20 00:46
2004.04.11
Ne nu ja vse ponimaju - no predel dolgen bit ?