非常急的问题，在线等。。。。。。

Question

某程序，功能如下：
前提：1，e:\vod\下仅有一个文件夹，且10位字母与数字随机组合
2, e:\vod\kill.exe为生成的文件, 是在启动组里，可开机自动运行
3，e:\vod\kill.ini为配置文件,存放两个变量
每到每小时的36分18秒，获取e:\vod下的文件夹名称,存为变量moviepath,
然后生成一个随机组合的字母和数字10们,存为变量moviepathready,
更改e:\web\movie\data\data.mdb里movie表里的几个字段的值为moviepathready 这一步我可以自己写
然后，强制性重启计算机。 
kill.exe是在开机自动运行的程序，
一运行，先读取配置文件kil.ini 两个变量：moviepath moviepathready
把e:\vod\下的文件夹更改，即moviepath改为moviepathready
然后，运行e:\vod\rmserver.lnk这个快捷方式程序保持不退出，窗体界面运行即可。
本人刚刚学习DELPHI，基础不太稳，希望有高人能为我帮个忙！
要求测试成功，并有源代码。本程序用做电影网站服务器防盗链之用，土方法，要不买一个防盗链的插件要花3800块，晕，还是用改随机目录吧。呵
 

Answer 1

我要这一个软件的功能最好能达到这样：
每小时的36分28秒,停止IIS，停止HELIX SERVER 然后改e:\vod\下的文件夹为另一个。然后启动HELIX SERVER 然后启动IIS

Answer 2

刚学DELPHI,所以好多东东都不会,但是有须求,没有办法.
如果如位可以提供以下这些功能的代码也行:
获取e:\vod下的文件夹名，如何获？
如何生成一个字母和数字的10位随机组合?
如何把e:\vod\sfsdfdl2829 这个文件夹改名为   fwojwqjfoawfla2828  ?
如何运行e:\vod\rm.lnk  这个快杰方式？

Answer 3

1、获取e:\vod下的文件夹名，如何获？
以下方法获取文件夹中的文件名，该方法修改一下可获得包括目录
procedure FindFiles(sPath:string;var FileBuf:TStringList);
var
  sr:TSearchRec;
begin
  FileBuf.Clear;
  if FindFirst(sPath,faAnyFile,sr)=0 then
  begin
    if not((sr.Attr and faDirectory)>0) then
      FileBuf.Add(sr.Name);
    while FindNext(sr)=0 do
    begin
      if not((sr.Attr and faDirectory)>0) then
        FileBuf.Add(sr.Name);
    end;
  end;
  FindClose(sr);
end;
2、如何生成一个字母和数字的10位随机组合?
用随机数生成ASKII码范围内的数字
3、如何把e:\vod\sfsdfdl2829 这个文件夹改名为   fwojwqjfoawfla2828  ?
可使用字符串加密的方法，具体能在CSDN查到
4、如何运行e:\vod\rm.lnk  这个快杰方式？
用winexec执行外部命令

Answer 4

谢谢cjf0426(cjf0426) 
哪位还有别的意见么？