Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

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

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

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

---

← →
[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: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 - не нужен.

---

← →
[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;

---

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.038 c