摘要：
SetLedState(ktCapsLock, True); // CapsLock on
SetLedState(ktNumLock, True); // NumLock on
SetLedState(ktScrollLock, True); // ScrollLock on 阅读全文
posted @ 2007-08-20 14:22 OldHawk 阅读(599) 评论(0) 推荐(0) 编辑
摘要：
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, AppEvnts, StdCtrls;
type
TForm1 = class(TForm)
ApplicationEvents1: TApplicationEvents;
Button_StartJour: TButton;
Button_StopJour: TButton;
ListBox1: TListBox; 阅读全文
posted @ 2007-08-20 14:19 OldHawk 阅读(480) 评论(0) 推荐(0) 编辑
摘要：
procedure TForm1.Button1Click(Sender: TObject); begin ShowCursor(False); // Hide cursor end; procedure TForm1.Button2Click(Sender: TObject); begin ShowCursor(True); // Show cursor end; 阅读全文
posted @ 2007-08-20 14:15 OldHawk 阅读(548) 评论(0) 推荐(0) 编辑
摘要：
uses ShellAPI; { If the taskbar auto-hide feature is enabled, you get TRUE from function "IsTaskBarautoHideOn". } function IsTaskbarAutoHideOn : boolean; var ABData : TAppBarData; begin ... 阅读全文
posted @ 2007-08-20 14:11 OldHawk 阅读(267) 评论(0) 推荐(0) 编辑
摘要：
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32; 阅读全文
posted @ 2007-08-20 14:09 OldHawk 阅读(523) 评论(0) 推荐(0) 编辑
摘要：
As you know ,to play a WAV sound, you can use a TMediaPlayer object.
This article shows that how can playing a wav file without TMediaplayer 阅读全文
posted @ 2007-08-20 11:40 OldHawk 阅读(293) 评论(0) 推荐(0) 编辑
摘要：
Today I want to show a few samples how you can use the extended dialogs from MS Windows (Find Files, Find Computer, Select Icon etc) in own code.
阅读全文
posted @ 2007-08-20 11:22 OldHawk 阅读(301) 评论(0) 推荐(0) 编辑
摘要：
结婚快7年了，儿子也4岁半了，现在的社会压力越来越大，人活得也越来越累，但是对生活还是充满了希望，儿子也很乖，也非常懂事。 一年前，我只身来到了上海，在这个大都市里压力就不用说了，今年她妈妈也来上海了，就想在孩子上小学之前能在上海好好干一番，为以后的生活做些准备，所以儿子就一直放在他外婆外爷处。 前几天，为了实现对儿子的承诺，暑假期间带他来上海玩，当然见面后双方... 阅读全文
posted @ 2007-08-20 10:46 OldHawk 阅读(377) 评论(8) 推荐(0) 编辑
摘要：
BorderStyle := bsNone;
Left := 0;
Top := 0;
Width := Screen.Width;
Height := Screen.Height;
阅读全文
posted @ 2007-08-16 16:12 OldHawk 阅读(3183) 评论(0) 推荐(0) 编辑
摘要：
MsgThread := TMsgThread.Create(False) ; //创建并执行线程
MsgThread := TMsgThread.Create(True) ; //创建线程后挂起
阅读全文
posted @ 2007-08-16 16:10 OldHawk 阅读(5097) 评论(2) 推荐(0) 编辑
摘要：
以前不管是做什么软件，只要是关于网页post提交cookie的，我都是用TcpClient，为什么呢？
因为我一直找不到idhttp提交Cookie的方法，今天终于有了结果 阅读全文
posted @ 2007-08-16 16:03 OldHawk 阅读(1433) 评论(2) 推荐(0) 编辑
摘要：
procedure TForm4.ScreenShot(x : integer; y : integer; Width : integer; Height : integer; bm : TBitMap);
var
dc: HDC; lpPal : PLOGPALETTE; 阅读全文
posted @ 2007-08-16 15:33 OldHawk 阅读(1248) 评论(0) 推荐(0) 编辑
摘要：
Windows启动时通常会有一大堆程序自动启动。不要以为管好了“开始→程序→启动”菜单就万事大吉，实际上，在Windows XP/2K中，让Windows自动启动程序的办法很多，下文告诉你最重要的两个文件夹和八个注册键 阅读全文
posted @ 2007-08-15 11:25 OldHawk 阅读(13122) 评论(1) 推荐(1) 编辑
摘要：
SendMessage (ActiveControl.Handle, WM_Cut, 0, 0);
SendMessage (ActiveControl.Handle, WM_Copy, 0, 0);
SendMessage (ActiveControl.Handle, WM_Paste, 0, 0); 阅读全文
posted @ 2007-08-15 11:21 OldHawk 阅读(406) 评论(0) 推荐(0) 编辑