- 博客(0)
- 资源 (10)
- 收藏
- 关注
TimeF5(按F5报时间)
按F5报时间+开机自运行+隐藏窗体;{//中断函数GetSysTime
function GetSysTime:dword;
asm
int $2a //调用2a号中断获取系统从启动运行时间(微秒)
end;}
2013-10-01
1小时关机F8报时
1小时关机F8报时+开机自运行隐藏窗体
unit oneHRout;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,registry;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
Label2: TLabel;
Timer2: TTimer;
// 定义关机函数SetPrivilege以备关机用
function SetPrivilege(privilegeName: string; enable: boolean): boolean;
// 定义中断函数GetSysTime以获取系统的运行时间
//function GetSysTime:dword;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
//定义关快捷键过程HotKeyDown实现按F8弹出窗口报告运行时间
procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY;
public
{ Public declarations }
end;
2013-08-04
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人