Главная страница
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.094 c
6-1079546565
kondryuk
2004-03-17 21:02
2004.04.11
OnGetThread


3-1079535500
Vilux
2004-03-17 17:58
2004.04.11
Какой SQL запрос или может компонент какой поможет?


3-1081934475
human
2004-04-14 13:21
2004.04.11
Direct Oracle Access


1-1079862666
Dark25
2004-03-21 12:51
2004.04.11
Копирование в StringGrid


1-1080051069
ruslan_as
2004-03-23 17:11
2004.04.11
Помогите считать двоичный файл