Форум: "Основная";
Текущий архив: 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.037 c
