first of may 下载:用delphi怎样实现随系统自动运行

来源：百度文库编辑：中科新闻网时间：2024/04/28 08:08:40

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,Registry;
procedure TForm1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;

Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run');
Reg.WriteString('Starup',ExtractFileName(Application.ExeName));
Reg.CloseKey;

Reg.Free;
end;

修改注册表,在run子键下增加你的程序

用delphi怎样实现随系统自动运行用Delphi做个MP3播放器.皮肤怎样实现? delphi怎样实现关机重启 DELPHI怎样实现按年份查询 delphi 怎样取得系统月份如何用DELPHI实现EXE文件注入其他内存运行电子试卷自动生成系统delphi原代码 delphi 中memo控件如何实现自动换行？请高手指点：怎样在Delphi开发的桌面系统中实现类似“多页面跳转”的功能？怎样更改系统的开机自动运行程序的设置,不让他自动运行?