最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

Delphi創(chuàng)建開機(jī)啟動項(xiàng)的方法示例

 更新時(shí)間:2014年07月29日 08:59:40   投稿:shichen2014  
這篇文章主要介紹了Delphi創(chuàng)建開機(jī)啟動項(xiàng)的方法,很有實(shí)用價(jià)值,需要的朋友可以參考下

Delphi可以通過創(chuàng)建開機(jī)啟動項(xiàng)鍵值的方法,將程序添加到開機(jī)啟動項(xiàng)中。通過本實(shí)例代碼就可以為您的程序添加到快速啟動中,隨著Windows一起啟動,開機(jī)即運(yùn)行的程序。該實(shí)例代碼簡單,主要是通過添加注冊表鍵值來實(shí)現(xiàn)。
具體的功能代碼如下所示:

unit dy97;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs,registry, StdCtrls, ExtCtrls;

type
 TForm1 = class(TForm)
  Label1: TLabel;
  Image1: TImage;
  procedure FormCreate(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
  procedure zdyx(a,b: string;c: boolean); 
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.zdyx(a, b: string; c: boolean);
var
 d: string;
 e: TReginiFile;
begin
 if c then
  d := 'once'
 else
  d:= '';
 e := TRegIniFile.Create('');
 e.RootKey := HKEY_LOCAL_MACHINE;
 e.WriteString('software\microsoft\windows\currentversion\run'+d +#0,a,b);
 e.Free ;  
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 self.zdyx('ZDYX',application.ExeName,false);
end;
end.

相關(guān)文章

最新評論

鄂伦春自治旗| 任丘市| 九龙城区| 全州县| 博兴县| 定兴县| 吴桥县| 清新县| 微博| 衡阳县| 泊头市| 卓资县| 东平县| 新田县| 海丰县| 桃江县| 台江县| 博湖县| 缙云县| 东至县| 南汇区| 潜山县| 陵川县| 二连浩特市| 彰化市| 苍梧县| 敖汉旗| 蒲江县| 砀山县| 同江市| 疏勒县| 梧州市| 和平区| 吉首市| 剑河县| 长海县| 吐鲁番市| 九龙县| 泰顺县| 凤凰县| 南华县|