Delphi与timer[4]：使用SetTimer(3)——使用窗体Handle
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
mmo1: TMemo;
mmo2: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sen...
delphi常用日期函数
uses DateUtils
●function DateOf(const AValue: TDateTime): TDateTime;
描述：
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个只带有日期的 TDateTime 类型变量。
例如：
showmessage(DateTimetostr(dateof...
时间函数的声明。
时间函数在窗体中可以直接使用。如果是无窗体的还是需要声明，下面是实现对象。
program Project1;
uses
Messages, SysUtils,Dialogs;
{$R *.res}
function MyDateTime(StartDate, EndDate, Preaching: TDateTime): Boolean;
begin
Result:=false;
if (Preaching>=StartDate)and(Preaching>=EndDate) then
Result:=true;
end;...
delphi实现进程监控。
program Project1;
uses
Windows, Messages, SysUtils,
Dialogs, StdCtrls,Tlhelp32,shellapi; //DateUtils 用时间需要定义
{$R *.res}
function CheckTask(ExeFileName: string): Boolean; //监视进程函数
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TPro...
文章分类
文章归档
最新评论
- 最美好的都：受教！！！
- 央吧心般：-s <随机数> 为monkey内部使用的伪随机数生成的种子，如果用相同的随机数种子重新执行m...
- 漫步云端24：fuck yourself
- hq6889：又看了一遍，很受用
- 参宿七：每天进步一点点
- hq6889：好人啊楼主