shell32.pas

DELPHI 下远程控制源码

unit Shell32;

interface

uses Windows;

const
  NIM_ADD = 0;
  NIM_MODIFY = 1;
  NIM_DELETE = 2;

  NIF_MESSAGE = 1;
  NIF_ICON = 2;
  NIF_TIP = 4;

type
  PNotifyIconData = ^TNotifyIconData;
  TNotifyIconData = record
    cbSize: DWORD;
    Wnd: HWND;
    uID: UINT;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: HICON;
    szTip: array [0..64] of Char;
  end;

function Shell_NotifyIcon(dwMessage: DWORD; lpData: PNotifyIconData): BOOL;
  stdcall;

implementation

const
  Shell32Dll = 'Shell32.dll';

function Shell_NotifyIcon; stdcall; external Shell32Dll name 'Shell_NotifyIconA';

end.