+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : Get/Set WindowIcon جلب مقبض Icon لأي نافذة عن طريق المقبض (/showthread.php?tid=4829)
Get/Set WindowIcon جلب مقبض Icon لأي نافذة عن طريق المقبض - SMP3 - 31-12-2012
السلام عليكم و رحمة الله و بركاته
هذه دالة بسيطة تقوم بجلب مقبض Icon لأي نافذة عن طريق المقبض
PHP كود :
/// <summary> Retrieve the Icon from window handle </summary>
function GetWindowIcon(hWin:HWND):HICON;
begin
Result:=0;
if hWin=INVALID_HANDLE_VALUE then Exit;
Result :=SendMessage(hWin,WM_GETICON,ICON_SMALL,0);
if Result<>0 then Exit;
Result :=SendMessage(hWin,WM_GETICON,ICON_BIG,0);
if Result<>0 then Exit;
Result :=SendMessage(hWin,WM_GETICON,ICON_SMALL2,0);
if Result<>0 then Exit;
Result :=GetClassLongPtr(hWin, GCL_HICON);;
if Result<>0 then Exit;
Result :=GetClassLongPtr(hWin, GCL_HICONSM);
Result:=0;
end;
PHP كود :
/// <summary> Change window icon from <c>Handle</c> </summary>
///<param name="hWin"> Window Handle
/// </param>
///<param name="Icon"> the new icon
/// </param>
///<param name="IconType"><c> you can use one of this :</c>
///<para>ICON_SMALL = change the window caption icon </para>
///<para>ICON_BIG = change the window TaskBar icon </para>
///<para>ICON_SMALL2 = change the window caption and TaskBar icon </para>
/// </param>
function SetWindowIcon(hWin:HWND;Icon:HICON; const IconType:integer =ICON_SMALL2 ):Boolean;
begin
Result:=False;
if hWin<>INVALID_HANDLE_VALUE then
Result:=(SendMessage(hWin,WM_SETICON,IconType,LPARAM(Icon))>0);
end;
PHP كود :
var NotePadHandle :HWND;
NotePadIcon :HICON;
NotePadNewIcon:HICON;
begin
// Get NotePad Handle
NotePadHandle:=FindWindow('Notepad',0);
// Get NotePad Icon from Handle
NotePadIcon:=GetWindowIcon(NotePadHandle);
// Draw Current NotePad Icon
DrawIcon(Canvas.Handle,0,0,NotePadIcon);
NotePadNewIcon:=Application.Icon.Handle;
// Change NotePad Icon
SetWindowIcon(NotePadHandle,NotePadNewIcon,ICON_SMALL2);
end;