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

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

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

Delphi可以通過創(chuàng)建開機啟動項鍵值的方法,將程序添加到開機啟動項中。通過本實例代碼就可以為您的程序添加到快速啟動中,隨著Windows一起啟動,開機即運行的程序。該實例代碼簡單,主要是通過添加注冊表鍵值來實現(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)文章

最新評論

乌兰县| 锦州市| 山丹县| 怀集县| 海盐县| 九江县| 泰兴市| 宁都县| 德兴市| 江阴市| 曲阜市| 寿宁县| 荣昌县| 阳山县| 巧家县| 溆浦县| 安福县| 泽州县| 泾川县| 福安市| 且末县| 威远县| 全椒县| 曲水县| 新乡市| 元氏县| 璧山县| 四子王旗| 江西省| 托克逊县| 阿坝县| 舒城县| 九龙城区| 建始县| 东丰县| 开江县| 百色市| 淅川县| 当雄县| 西盟| 枣庄市|