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...
默认分类 | 2014-05-12 00:00 | 阅读 47046 次 | 评论 0 条

delphi常用日期函数

uses DateUtils ●function DateOf(const AValue: TDateTime): TDateTime; 描述: 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个只带有日期的 TDateTime 类型变量。 例如: showmessage(DateTimetostr(dateof...
默认分类 | 2014-05-11 21:48 | 阅读 67526 次 | 评论 0 条

时间函数的声明。

时间函数在窗体中可以直接使用。如果是无窗体的还是需要声明,下面是实现对象。 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;...
默认分类 | 2014-05-11 21:29 | 阅读 59981 次 | 评论 0 条

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...
编程点滴 | 2014-05-11 18:49 | 阅读 2893 次 | 评论 0 条
浏览2342183次