系统应用 程序自动运行 wxh zt

wxhwhmanshan

系统应用 程序自动运行
                  简介很多软件都可实现开机自动运行。在delphi下编程实现也很容易。

                  开始声明
                  interface

                  usesvar
                  reg:TRegistry;
                  在procedure Tmainfm.FormCreate(Sender: TObject);事件中编写代码：
                  var
                  reg:TRegistry;
                  mypath:string;
                  begin
                  mypath:=extractfilepath(paramstr(0));
                  reg:=Tregistry.create;
                  reg.rootkey:=HKEY_LOCAL_MACHINE;
                  try
                  if not
                  reg.KeyExits(‘\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\form1)
                  then
                  begin

                  reg.CreateKey(form1);
                  if
                  reg.OpenKey(‘\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\form1)
                  then
                  begin
                  reg.WriteString(form1,mypath+‘form1‘);
                  );
                  end;
                  end.
                  这样即可实现程序自启动。