zoukankan      html  css  js  c++  java
  • delphi 开机自动运行代码

    unit Unit1;
    //download by http://www.codefans.net
    interface

    uses
      Windows,Registry, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

    type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.DFM}
    procedure SetAutorun(aProgTitle,aCmdLine: string; aRunOnce: boolean );
    var
      hKey: string;
      hReg: TRegIniFile;
    begin
      if aRunOnce then
      //程序只自动运行一次
        hKey := 'Once'
      else
        hKey := '';
      hReg := TRegIniFile.Create('');
      //TregIniFile类的对象需要创建
      hReg.RootKey := HKEY_LOCAL_MACHINE;
      //设置根键
      hReg.WriteString('SoftwareMicrosoftWindowsCurrentVersionRun'
                      + hKey + #0,
                      aProgTitle,
                      //程序名称,可以为自定义值
                      aCmdLine );
                      //命令行数据,必须为该程序的绝对路径+程序完整名称
      hReg.destroy;
      //释放创建的hReg
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
     SetAutorun(Application.Title,application.ExeName,false);
    end;

    end.

  • 相关阅读:
    3D打印技术大潮
    有用网址
    linux下scp命令详解
    使用 GDB 调试多进程程序
    linux下top命令参数解释
    Sql动态查询拼接字符串的优化
    vmstat参数详解
    freebsd破解密码
    freebsd防火墙
    freebsd无法输入汉字
  • 原文地址:https://www.cnblogs.com/tc310/p/5200109.html
Copyright © 2011-2022 走看看