DELPHI 7 学习---------定时器

目的：完成一段时间定时

主要内容：界面设计，动态导入DLL。实现数字的透明显示及到时提醒

 

一、界面过程：

 1.设置窗体的 TransparentColor属性为 True;

2.设置窗体的 TransparentColorValue属性为某一颜色，如clBlack

3.窗体放置一个Tlabel元件，设置其Color属性值为窗体的 TransparentColorValue

 

二、DLL导入过程：

1.动态导入一个模式对话框函数，用以提醒用户

代码：

type THS=function(lpText:PwideChar;lpCaption:PWideChar;uType:Cardinal):Integer; cdecl ; //DLL中函数原型
var d:TDateTime; m,n:integer;
 dllHandle:THandle;
 msgbox:THS;
begin
  d:=now-startTime;
  label1.Caption:=formatDateTime('nn:ss',d);
  m:=MinuteOf(d);
  n:=SecondOf(d);

  if (m=10) and (n=0) then begin                  //设定时间（10分钟）到，提醒用户
  

  Timer1.Enabled:=false;
   dllHandle:=LoadLibrary('two.dll');           // two.dll外部函数
   if dllHandle<>0