delphi7中怎样使用Timer这个组件

先放一个timer控件到界面上，将它的interval设定为2000（这个就是用来设定定时器时间的，单位为毫秒，1秒钟即为1000），然后双击它，在begin与end之间写上KillTask('YodaoDictexe');就行了

这样这个定时器就会在程序启动时运行，如果你是想用按钮手动控制它，就可以将它的action下的enabled设为false，然后在某个按钮，比如button1的单击事件中写成

procedure TForm1Button1Click(Sender: TObject);

begin

timer1Enabled:=true;

end;

就是个定时器。Enabled就是开关，为False时这个东西就不工作了，里面的代码就不会被执行了。

它有个Interval属性，这个的单位是毫秒。当Enabled为True时，每隔Interval毫秒，就执行一次里面的代码。

比如，Interval设为1000，则每隔1000毫秒，里面的代码就被执行一次。

用接口

exe里调用dll的接口：

function TranStr(aSrcStr: PChar): PChar; stdcall; external 'Project1dll';

dll里声明接口：

exports

TranStr;

dll里实现函数：

function TranStr(aSrcStr: PChar): PChar; stdcall;

function TranStr(aSrcStr: PChar): PChar;

var

i: Integer;

sTmp: string;

begin

sTmp:= '';

for i := Length(aSrcStr) downto 1 do

sTmp:= sTmp + Copy(aSrcStr, i, 1);

Result:= PChar(sTmp);

end;

要写注册表才能完成这个功能

先在uses 里面加入registry

procedure config(start:boolean; //设置自动启动,start为true为允许自动启动，为false不自动启动

var

reg:Tregistry;

begin

reg:=TregistryCreate;

regRootKey:=HKEY_LOCAL_MACHINE;

if start=true then begin

if regOpenKey('\SOFTWARE\Microsoft\windows\CurrentVersion\Run',true) then

RegwriteString('自动运行',ApplicationExeName);

regCloseKey;

end else begin

if regOpenKey('\SOFTWARE\Microsoft\windows\CurrentVersion\Run',true) then

RegDeleteValue('自动运行');

regCloseKey;

end;

end;

以上就是关于delphi7中怎样使用Timer这个组件全部的内容，包括:delphi7中怎样使用Timer这个组件、delphi timer用法、Delphi的DLL里如何实现定时器功能等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！