Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

TaskBar   Найти похожие ветки 

 
Laymer   (2004-02-27 13:47) [0]

Не подскажите как убрать прогу из TaskBar и поместить ее туда где часы.


 
VMcL ©   (2004-02-27 14:41) [1]

FAQ
___
LMD


 
DeadMeat ©   (2004-02-27 15:07) [2]

Этт тебе к АП надо... Он этот вопрос любит...


 
GLFox   (2004-02-27 15:14) [3]

Вот кусок рабочей проги

program WinObsrv;

uses
 Windows,
 Messages,
 ShellAPI,
 MainWnd in "MainWnd.pas",

{$R *.res}

function TrayIconAdd(hWindow:HWND; IconID:Integer; sTip:String):Boolean;
var
 hTrayIcon : HICON;
 NID:NOTIFYICONDATA;
 i,iMaxLen:Integer;
begin
 NID.cbSize := sizeof(NOTIFYICONDATA);
 NID.Wnd := hWindow;
 NID.uID := IconID;
 NID.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
 NID.uCallbackMessage := WM_TrayIcon;
 hTrayIcon:=LoadIcon(hInstance,"MAINICON");
 NID.hIcon:=hTrayIcon;
 if Length(sTip)>0 then begin
   if Length(sTip)>(Length(NID.szTip)-1) then iMaxLen:=Length(NID.szTip)-1
   else iMaxLen:=Length(sTip);
   for i:=1 to iMaxLen do NID.szTip[i-1]:=sTip[i];
   NID.szTip[iMaxLen]:=#0;
 end else NID.szTip[0]:=#0;
 Result:=Shell_NotifyIcon(NIM_ADD,@NID);
 if (hTrayIcon<>0) then DestroyIcon(hTrayIcon);
end;

function TrayIconDel(hWindow:HWND; IconID:Integer):Boolean;
var NID:NOTIFYICONDATA;
begin
 NID.cbSize:=sizeof(NOTIFYICONDATA);
 NID.Wnd:= hWindow;
 NID.uID:= IconID;
 Result:=Shell_NotifyIcon(NIM_DELETE,@NID);
end;

var
 Msg:TMsg;
 WndMain:TMainWnd;
begin
 WndMain:=TMainWnd.Create(hInstance,"");
 TrayIconAdd(WndMain.Handle,IconIDMain,AppTitle+" "+AppVersion);
 repeat
   GetMessage(Msg,0{WndMain.Handle},0,0);
   if Msg.message=WM_QUIT then Break;
   TranslateMessage(Msg);
   DispatchMessage(Msg);
 until False;
 TrayIconDel(WndMain.Handle,IconIDMain);
 WndMain.Free;
end.



Страницы: 1 вся ветка

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.052 c
1-1081662810
Sphinx
2004-04-11 09:53
2004.04.25
Событие восстановления окна


1-1081094455
Mishenka
2004-04-04 20:00
2004.04.25
ShortCut у меню.


3-1080631999
AOH
2004-03-30 11:33
2004.04.25
Транзакция в VBA MS ACCESS


4-1077645218
Владимир Березин
2004-02-24 20:53
2004.04.25
Обработка WINDOWS - сообщения


1-1081325444
mixam
2004-04-07 12:10
2004.04.25
прога зпущена или нет