关于ShellExecute的简单菜鸟问题.请求帮助. (50分)

lailongmen · 2004-02-19

有15个reg文件需要按照预定的概率使用,我已经把reg打开方式默认为快速导入,(双击就自动导入了,不弹出对话框). 如何写一个程序,实现运行程序就自动运行其中的一个reg文件,然后自动退出程序自身. 我只知道大概是这样,设定好每个reg的对应取值,比如reg文件1的对应取值是0-50,reg文件2的对应取值是51-60,................ 在100整数里面随机取一个数字,假如取了2,那么就是调用ShellExecute运行reg文件1,然后程序自身退出. 大概的原理我自己是这样想的,但是delphi我一点基础没有,不知道哪位高人能够帮我完整的写一个出来,只要写一个reg文件1就可以了，其他的我自己加。谢谢了.

flamingo · 2004-02-19

sorry ，我不回答问题，只在非技术区灌灌水而已。 既然承蒙你看得起我，也不好故作高深样，随便说点吧： 不管你的 reg 文件是什么文件，反正它有文件名。使用一个 TStringList ，利用它的 LoadFromFile 方法，可以装入一个文本文件，这个文本文件里的每一行就是你的一个 reg 文件名。这样这些文件在 TStringList 中就各自有了一个 index 。然后利用随机数获得 一个随机值映射到某个 index 就可以获得一个 reg 文件。装入它。

lailongmen · 2004-02-19

听不懂楼上的 ~

lailongmen · 2004-02-19

我很菜的  楼上的哥哥你说的这个代码我不懂

flamingo · 2004-02-19

这个都不懂，那真的没办法了。俺水平有限，实在抱歉。

lailongmen · 2004-02-19

 没关系的

kl78pgy · 2004-02-19

调用reg方法： ShellExecute(0, 'open', 'regedit.exe', '/s e:/reg1.reg', nil, nil, SW_HIDE); 如果执行成功，ShellExecute的返回值应该大于32。 这样就不会弹出对话框了。   其他的判断语句你自己应该可以写吧

lailongmen · 2004-02-19

其他的基本上一句都不会

kl78pgy · 2004-02-19

嘿嘿，不会还编程，我看我是没时间帮你了[

]

lailongmen · 2004-02-20

5~~~     那我自己试试

lailongmen · 2004-02-20

自己搞了一点，但是random

=[0,100]这里过不去，请求帮助。 uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ShellApi; type   TForm1 = class(TForm)   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   random

=[0,100]   implementation {$R *.dfm} begin  if radom(100) in[0..50]  then ShellExecute(Handle, ’open’,’xp-en.reg’,nil,nil,sw_minimize);  end;  if radom(100) in[51..100]  then ShellExecute(Handle, ’open’,’xp-gb.reg’,nil,nil,sw_minimize);  end;   end.

lailongmen · 2004-02-20

呵呵我自己搞定了，，，  分怎么办

kl78pgy · 2004-02-20

加给我吧，反正你又不能自己加给自己：）

关于ShellExecute的简单菜鸟问题.请求帮助. (50分)

lailongmen

Unregistered / Unconfirmed

flamingo

Unregistered / Unconfirmed

lailongmen

Unregistered / Unconfirmed

lailongmen

Unregistered / Unconfirmed

flamingo

Unregistered / Unconfirmed

lailongmen

Unregistered / Unconfirmed

kl78pgy

Unregistered / Unconfirmed

lailongmen

Unregistered / Unconfirmed

kl78pgy

Unregistered / Unconfirmed

lailongmen

Unregistered / Unconfirmed

lailongmen

Unregistered / Unconfirmed

lailongmen

Unregistered / Unconfirmed

kl78pgy

Unregistered / Unconfirmed

Similar threads