摘要：
SetLedState(ktCapsLock, True); // CapsLock on
SetLedState(ktNumLock, True); // NumLock on
SetLedState(ktScrollLock, True); // ScrollLock on 阅读全文
posted @ 2007-08-20 14:22 OldHawk 阅读(619) 评论(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 阅读(496) 评论(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 阅读(562) 评论(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 阅读(545) 评论(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 阅读(299) 评论(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 阅读(320) 评论(0) 推荐(0)
浙公网安备 33010602011771号