关于自动升级 ( 积分: 30 )

W

wy91267

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-28

• #1

我做了一个自动升级的小程序，但是我想让它开机后自动运行该程序请问各位高手怎么做呢！有相关的例子麻烦给一份。

 

W

wy91267

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-28

• #2

我做了一个自动升级的小程序，但是我想让它开机后自动运行该程序请问各位高手怎么做呢！有相关的例子麻烦给一份。

 

竹

竹本无心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-29

• #3

最简单的就是在注册表的current / run 中加入你的程序即可.

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-29

• #4

1。放到启动目录中
2。在HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run下写键值
3。注册为服务

 

W

wy91267

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-29

• #5

但是怎么放呢 我没做过 。如果我给多个人的话都手动修改注册表是不是麻烦点 有没有简单点的

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-30

• #6

你把写注册表的部分写在程序的creat事件里不就行了，只要他运行过，下次就会自动运行了

 

W

wy91267

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-02

• #7

不好意思我没接触过这方面的 你能不能给个例子阿 谢谢

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-02

• #8

var
temp:TRegistry;
begin
Temp:= TRegistry.Create;
try
with Temp do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True) then
begin
WriteString( ExtractFileName(Application.ExeName),Application.ExeName);
closekey;
end;
end;
finally
temp.Free;
end;
end;

 

未

未能注册

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-02

• #9

偶也想知道一下

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-02

• #10

啊哦~~~抱歉 上面写错了

应该是：
WriteString( ExtractFileName(Application.ExeName),Application.ExeName);
习惯了 呵呵

 

W

wy91267

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-02

• #11

hs-kill，你的QQ多少啊 我的是6738177 想认识一下你这个朋友

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-02

• #12

呵呵 ~17948876 先说明我水平一般啊~呵呵 别失望

 

K

kofoun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-02

• #13

把它放在启动目录中

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-02

• #14

这是我写的可以控制是否随机启动的

procedure Tform1.autorun(key:boolean);
var
ini:Tinifile;
begin
ini:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'conifg.ini');
try
ini.WriteBool('CONFIG','AUTORUN',key);
finally
ini.Free;
end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
autorun(checkbox1.Checked);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
ini:Tinifile;
reg:TRegistry;
begin
reg:=Tregistry.Create;
ini:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'conifg.ini');
try
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True) then
begin
if ini.ReadBool('CONFIG','AUTORUN',true) then
reg.WriteString(ExtractFileName(Application.ExeName),'"'+Application.ExeName+'"')
else
reg.DeleteValue(ExtractFileName(Application.ExeName));
reg.CloseKey;
end;
finally
ini.Free;
reg.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
checkbox1.Checked:=true;
end;

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-02

• #15

要 uses Registry,IniFiles

 

唐

唐佐平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-04

• #16

有人做过局域网自动更新吗？

 

T

Tassadar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-04

• #17

楼上的
http://www.delphibbs.com/keylife/iblog_show.asp?xid=13234

 

H

hnw1982

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-30

• #18

学习

 

1

13708782004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-30

• #19

www.51merit.com
上张大哥已经有现成的例子了！

 

H

hzm7512

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-30

• #20

来晚了,hs-kill说的很清楚了