|
|
|
|
|
 |
delphi 获得系统任务条句柄 |
| |
日期：2007-06-27 10:14:41
点击：12 评论：0  |
|
hTaskbar := FindWindow('Shell_TrayWnd', Nil ); |
|
|
delphi 使用系统开始菜单失效 |
| |
日期：2007-06-27 10:13:29
点击：13 评论：0 |
|
var
Rgn : hRgn;
begin
{Hide the start button}
Rgn := CreateRectRgn(0, 0, 0, 0);
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0,
'Button',
|
|
|
delphi 获得任务条属性 |
| |
日期：2007-06-27 10:12:27
点击：10 评论：0 |
|
TMydata.cbSize := sizeof (TMydata);
i := SHAppBarMessage ( ABM_GETSTATE,TMydata );
showmessage ( inttostr (i));
{ 0: 自动隐藏和总在顶端没设定
1: 总在顶端没设定，自动隐藏设定
2: 总在顶端设定，自动隐藏没设定
3: 总在顶端设定，自动隐藏设定
// |
|
|
delphi 启动开始菜单 |
| |
日期：2007-06-27 10:11:15
点击：6 评论：0 |
|
Sendmessage(Application.Handle,WM_SYSCOMMAND,SC_TASKLIST,0); |
|
|
delphi 玩转桌面图标 |
| |
日期：2007-06-27 10:09:58
点击：11 评论：0 |
|
首先要对付的是桌面图标那一个个难看的、带有背景色的文字，不仅看上去别扭，还遮住了漂亮的墙纸，一定要去掉它，把它变成透明。其次就是图标的位置，只会傻傻地呆在屏幕的左边，还得我们一个个去拖，真累！给它来点新花样，Please Follow Me！
1、 新建一工程，在 use |
|
|
delphi 隐藏桌面图标 |
| |
日期：2007-06-27 10:08:16
点击：13 评论：0 |
|
var
hDesktop : THandle;
begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_HIDE);
end;
; |
|
|
delphi 判断屏幕保护是否在运行 |
| |
日期：2007-06-27 10:07:11
点击：10 评论：0 |
|
BOOL SystemParametersInfo(
UINT uiAction, // system parameter to query or set
UINT uiParam, // depends on action to be taken
PVOID pvParam, // depends on action to be taken
UINT fWinIni // user profile update flag
);
Windows NT 5.0 |
|
|
delphi 建立键盘鼠标动作纪录与回放 |
| |
日期：2007-06-27 09:21:13
点击：7 评论：0 |
|
if iCode < 0 then //必须将消息传递到消息链的下一个接受单元
Result := CallNextHookEx(hPlay,iCode,wParam,lParam)
else if iCode = HC_SYSMODALON then
canPlay:=0
else if iCode = HC_SYSMODALOFF then
canPlay:=1
else if ((canPlay |
|
|
delphi 获取RichEdit当前光标位置 |
| |
日期：2007-06-27 09:12:32
点击：16 评论：0 |
|
Y := SendMessage(RichEdit1.Handle, EM_LINEFROMCHAR,
RichEdit1.SelStart, 0);
X := RichEdit1.SelStart -
SendMessage(RichEdit1.Handle, EM_LINEINDEX, Y, 0); |
|
|
delphi 用户选择菜单事件 |
| |
日期：2007-06-27 09:09:35
点击：9 评论：0 |
|
procedure WMInitMenu(var msg: TMessage); message WM_INITMENU; |
|
|
delphi 自动滚屏幕 |
| |
日期：2007-06-27 09:08:17
点击：11 评论：0 |
|
if Key = VK_F8 then
SendMessage(Memo1.Handle, { HWND of the Memo Control }
WM_VSCROLL, { Windows Message }
SB_PAGEDOWN, { Scroll Command }
0) { Not Used }
else if Key = VK |
|
|
delphi 知道Memo每项可显示的行 |
| |
日期：2007-06-27 09:06:39
点击：7 评论：0 |
|
DC := GetDC(Memo.Handle); {Get the memo's device context}
try
{Select the memo's font}
OldFont := SelectObject(DC, Memo.Font.Handle);
try
GetTextMetrics(DC, Tm); {Get the text metric info}
Memo.Perform(EM_GETRECT, 0 |
|
|
delphi Delphi的消息处理机制 |
| |
日期：2007-06-27 09:03:47
点击：10 评论：0 |
|
在DELPHI 中 可 自 定 义 消 息, 并 可 直 接 处 理 消 息. 这 对 于 那 些 希 望 编 写 自 己 的 构 件(Component), 或 者 希 望 截 获. 过 滤 消 息 的 用 户 来 说 是 必 不 可 少 的. 因 为 编 写 构 件 一 般 要 对 相 应 的 消 息 进 行 处 理. 下 面 就 对Delphi |
|
|
delphi 给控件添加弹出式菜单 |
| |
日期：2007-06-27 08:49:41
点击：13 评论：0 |
|
PopupMenu1.PopupComponent := TComponent(Sender);
PopupMenu1.Popup(X,Y); |
|
|
|
|
|
|
|
