25-02-2012, 02:56 PM
السلام عليكم
لا اعرف مبدئياً ما المشكلة ولكن لم يتم التثبيت حتى اوقفت عمل هذين السطرين
وتظهر رسالة To Actual Parametres
على العموم تم التركيب
لا اعرف مبدئياً ما المشكلة ولكن لم يتم التثبيت حتى اوقفت عمل هذين السطرين
كود :
procedure TSMTrayIcon.UpdateNotifyData;
var
Ico: TIcon;
begin
with FIconData do
begin
// cbSize := SizeOf(TNotifyIconData);
Wnd := FHandle;
uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
Ico := GetActiveIcon;
if Ico <> nil then
hIcon := Ico.Handle
else
hIcon := INVALID_HANDLE_VALUE;
// StrPLCopy(szTip, GetShortHint(FHint), SizeOf(szTip) - 1);
uCallbackMessage := CM_TRAYICON;
uID := 0;
end;
end;وتظهر رسالة To Actual Parametres
على العموم تم التركيب