Как показать стандартную WinXP подсказку (скнопкой "х" в правом в

← →
saimon (2004-07-22 20:42) [0]

Уважаемые, мастера, Подскажите пожалуйста...

Как показать стандартную WinXP подсказку (скнопкой "х" в правом верхнем углу), когда иконка проги в Systray"е?

Заранее благодарен, Saimon.

← →
grom (2004-07-22 22:33) [1]

http://www.swissdelphicenter.ch/torry/printcode.php?id=1164
если это не поможет дам другой пример

← →
saimon (2004-07-23 03:10) [2]

> grom (22.07.04 22:33)

Скажите, плиз, а покороче никак нельзя???

← →
Fay (2004-07-23 07:08) [3]

2saimon (22.07.04 20:42)
Покороче: RTFM (PSDK/MSDN в данном случае)

← →
grom (2004-07-23 07:37) [4]

по короче
----------
type
TNotifyIconBalloon = record
cbSize: DWORD;
hWnd: HWND;
uID: UINT;
uFlags: UINT;
uCallbackMessage: UINT;
hIcon: HICON;
szTip: array[0..127] of AnsiChar;
dwState: DWORD;
dwStateMask: DWORD;
szInfo: array[0..255] of AnsiChar;
uTimeout: UINT;
szInfoTitle: array[0..63] of AnsiChar;
dwInfoFlags: DWORD;
end;

function BalloonHint(NIco:integer;Flag:byte;Title,Text:string):Boolean;
function AddModDelIcon(H:HWND;R,NIco:integer;Icon:HICON;S:string):Boolean;

var
N:TNotifyIconBalloon;
implementation

//vvvvvvvvvvvvvvvvvv/ BalloonHint /vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
function BalloonHint(NIco:integer;Flag:byte;Title,Text:string):Boolean;
begin
N.cbSize:=SizeOf(TNotifyIconBalloon);
N.uID:=NIco;
N.uFlags:=$00000010;
StrPLCopy(N.szInfo,Text,SizeOf(N.szInfo)-1);
StrPLCopy(N.szInfoTitle,Title,SizeOf(N.szInfoTitle)-1);
N.uTimeout:=5000;
N.dwInfoFlags:=Flag;
Result:=Shell_NotifyIcon(NIM_MODIFY,@N);
end;
//vvvvvvvvvvvv/ Add Modify Delete Icon /vvvvvvvvvvvvvvvvvvvvvvvvvv
function AddModDelIcon(H:HWND;R,NIco:integer;Icon:HICON;S:string):Boolean;
begin
N.cbSize:=SizeOf(TNotifyIconBalloon);
N.hWnd:=H;
N.uID:=NIco;
N.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
N.uCallbackMessage:=WM_USER;
N.hIcon := Icon;
StrPLCopy(N.szTip,S,SizeOf(N.szTip)-1);
if R=1 then Result:=Shell_NotifyIcon(NIM_ADD,@N);
if R=2 then Result:=Shell_NotifyIcon(NIM_MODIFY,@N);
if R=3 then Result:=Shell_NotifyIcon(NIM_DELETE,@N);
end;
...........
AddModDelIcon(Handle,1,1,0,"");
...........
BalloonHint(1,0,"Hint","BalloonHint");

← →
grom (2004-07-23 07:41) [5]

BalloonHint(1,$00000001,"Hint","BalloonHint");вот как надо

Как показать стандартную WinXP подсказку (скнопкой "х" в правом в Найти похожие ветки