DECLARE SHORT DrawIcon IN Win32API; > INTEGER Hdc, INTEGER X, INTEGER Y, INTEGER hIcon >DECLARE INTEGER ExtractAssociatedIcon IN Shell32; > INTEGER hInst, STRING @lpIconPath, INTEGER @lpiIcon >DECLARE INTEGER GetClassLong IN Win32API; > INTEGER hWnd, INTEGER nIndex >DECLARE INTEGER GetDC IN Win32API; > INTEGER hWnd >DECLARE INTEGER ReleaseDC IN Win32API; > INTEGER hwnd, INTEGER hdc > >PROCEDURE DisplayIcon > > LPARAMETER pcfilename > > LOCAL lnHdc, lnHWnd, lnHIcon, lnHInstance, lniconindex > lniconindex = 0 > * Foxtools required here > lnHWnd = _WHToHwnd(_WFindTitl(ThisForm.Caption)) > lnHdc = GetDC(lnHWnd) > lnHinstance = GetClassLong(lnHWnd, GCL_HMODULE) && GCL_HMODULE = -16 > HIcon = ExtractAssociatedIcon(lnHinstance, @pcfilename, @lniconindex) > UDraw = DrawIcon(lnHdc, 0, 0, lnHIcon) > = ReleaseDC(lnHWnd, lnHdc) > RETURN >ENDPROCNote, however, that it's not very stable. You'll need a timer to monitor the window status. Further, it's limited to displaying 32x32 icons.