设置自运行程序

原创 2006年05月27日 22:30:00

 
 

原代码如下:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   registerTemp:TRegistry;
begin
registertemp:=tregistry.Create ;
  with registertemp do
  begin
  Rootkey:=hkey_local_machine;
  if openkey('software/MIcrosoft/windows/CurrentVersion/run',true) then
    begin
    WriteString(extractfilename(edit1.Text ),edit1.Text );
    showMessage('操作成功');

    end
    else
     showMessage ('操作失败');
  end;


end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if openDialog1.Execute  then
edit1.Text :=opendialog1.FileName;
end;

end.

相关文章推荐

自动运行程序设置~很好用

  • 2008年12月28日 20:34
  • 179KB
  • 下载

【IAR】设置和编译信息解析 程序运行耗时 内存分配MAP

【IAR】设置和编译信息解析 程序运行耗时 内存分配MAP (2011-11-27 23:39:26) 转载▼ 标签: 杂谈 分类: 编译器 ...
  • metuu
  • metuu
  • 2014年06月20日 13:35
  • 1638

如何在Windows系统中设置Python程序定时运行

最近我写了一个简单的Python程序,想让这个小程序每天上午10点定时运行一次,因为我的电脑是Windows系统,无法使用Linux下强大的crontab命令,所以我只好求助于度娘。我搜到了好几个相关...
  • wwy11
  • wwy11
  • 2016年04月08日 22:39
  • 10514

用vc设置开机自动运行的程序

  • 2008年08月25日 16:52
  • 1.79MB
  • 下载

关于程序动态库链接和运行时搜索路径设置的个人理解

首先我们要明确一个概念,程序动态库连接时的路径和运行时路径是不同的。现代连接器在处理动态库时将链接时路径(Link-time path)和运行时路径(Run-time path)分开,用户可以通过-...
  • lfyaa
  • lfyaa
  • 2013年08月24日 11:56
  • 1035

自动运行程序设置

  • 2008年06月24日 10:57
  • 179KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:设置自运行程序
举报原因:
原因补充:

(最多只允许输入30个字)