当前位置: 源码素材网 » Delphi教程 » 详情页

Delphi将你的程序放在Windows启动中

  •   时间:2019-05-12
  • 概述:事件处理 开机启动

Delphi将你的程序放在Windows启动中,实现这个功能要分三步走:

1:如何将你的程序放在Windows启动中

HKEY_LOCALMACHINE\Sodtware\Microsoft\Windows\CurrentVersion\Run

你会发现所有的Windows启动时调用的程序都在这里,于是你将你的程序增加在这里就可以了.名称为你的程序的标题,其值为你的程序的执行路径和文件名称:

procedure TForm1.Button1Click(Sender: TObject);
Var
  RegFile : TRegistry;
  AppFile : String ;
begin
  AppFile := Application.ExeName ;
  RegFile:=TRegistry.Create;
  RegFile.RootKey:=HKEY_LOCAL_MACHINE;
  try
    RegFile.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
    RegFile.WriteString('Test Add App to Start','"'+AppFile+'"');
  except
  End;
  RegFile.CloseKey ;
  RegFile.Free;
end;

 

2:再打开控制面板里面有这个这么一段话,就是打开拨号连接。其中'我的连接'为你创建的拨号程序名称。
 

winexec('rundll32.exe rnaui.dll,RnaDial '+'我的连接',9);

3:如何为Delphi程序添加事件和事件处理器
  Delphi是一种功能很强的可视化程序开发工具。我们在使用Delphi开发WINDOWS 应用程序的过程中,虽然Delphi为每个可视化组件都提供了很多属性(Property)和事件(Event),但在实际应用中可能会碰到一些自己需要的特殊事件,这些特殊事件Delphi 又没有提供,这时我们就需要为应用程序添加这些特殊事件。当这些事件发生后,又能马上调用处理这些事件的过程。本文通过实例来说明如何为应用程序添加事件和处理事件的过程。
  在Delphi中,事件实际上是专门化的属性,它是一个过程(procedure)的指针。要添加事件,首先应在所定义的类中说明一个用来指向事件过程的指针,该指针的作用是当事件一旦发生,就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符 published公布定义的事件属性源程序代码:
  本例中,再Private声明中定义了以下变量和过程,
    val1,val2,res:integer;   {val1和val2存放输入的两个整数,res存放两数的积}
    FTooBig : TNotifyEvent;  {定义一个指向事件处理器的指针FTooBig}
    procedure TooBig(Sender: TObject);
  同时在Published中定义了 OnTooBig事件
    property  OnTooBig:TNotifyevent read FTooBig write FTooBig;{定义事件}
本程序的执行过程是这样的,如果在两个乘数大于200或者为0或者为空的时候,触发OnTooBig事件。代码如下:

procedure TForm1.FormCreate(Sender: TObject);
begin
  val1:=1;
  val2:=1;
  FTooBig := TooBig;{使事件处理指针指向事件处理器}
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
  Try
    val1 := StrToInt(Edit1.Text);
  Except
    Val1 := 0 ;
  End ;
  Try
    val2 := StrToInt(Edit2.Text);
  Except
    Val2 := 0 ;
  End ;
  if((val1< 200)and(val2< 200)) and (val1<>0) and (val2<>0) then
    begin
      res := val1*val2;
      Edit3.Text := IntToStr(res);
    end
  else
    if assigned(FTooBig) then OnTooBig(Self);
end;

    相关声明:

      若“Delphi将你的程序放在Windows启动中”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。