Как зная хендл чужого приложения нарисавать его иконку

← →
xtz © (2003-11-20 18:45) [0]

Как зная хендл чужого приложения нарисавать его иконку на кнопке Bitbutton соей проги (желательно с роботующим примером) а то пробывал LoadIcon но никак (ExtractIconEx не предлогать)

← →
DVM © (2003-11-20 18:49) [1]

Во-первых, у приложений нет хэндлов, но они есть у окон.

Надо получить иконку окна или ассоциированную с файлом?

← →
xtz © (2003-11-20 18:58) [2]

Иконку окна но без и использывание загрузки её из файла приложения

← →
DVM © (2003-11-20 19:04) [3]

function GetIconFromWindow(hWnd:HWND; bBigIcon:boolean):HICON;
var
BigOrSmall,BigOrSmall2:integer;
hIcon:THandle;
begin
hIcon:=0;
if bBigIcon then
begin
BigOrSmall:=ICON_BIG;
BigOrSmall2:=GCL_HICON;
end
else
begin
BigOrSmall:=ICON_SMALL;
BigOrSmall2:=GCL_HICONSM;
end;
SendMessageTimeout(hWnd, WM_GETICON, BigOrSmall, 0, SMTO_ABORTIFHUNG, 1000, HIcon);
if hIcon=0 then hIcon := GetClassLong(hWnd, BigOrSmall2);
if hIcon=0 then SendMessageTimeout(hWnd, WM_GETICON, BigOrSmall, 1,
SMTO_ABORTIFHUNG, 1000, hIcon);
if hIcon=0 then hIcon := GetClassLong(hWnd, BigOrSmall2);
if hIcon=0 then SendMessageTimeout(hWnd, WM_QUERYDRAGICON, BigOrSmall,
0, SMTO_ABORTIFHUNG, 1000, hIcon);
result:=hIcon;
end;

← →
chi (2003-11-21 14:35) [4]

Удалено модератором
Примечание: Offtopic

Как зная хендл чужого приложения нарисавать его иконку Найти похожие ветки