如何读取注册表信息和拷贝文件？

Question

老板让做个安装的升级包，只是让新文件覆盖旧文件，不知道该怎样做才好
   首先要读取注册表信息，找到原来安装程序的安装目录，检查版本，然后把新的升级文件拷贝过去覆盖就可以了，原来想用installshield 做，可惜我太菜了，做不出，想来想去，做个可执行文件把它拷贝过去算了，谁能帮忙解决这个问题，先谢谢了

Answer 1

http://www.delphiun.com/down_view.asp?id=34

Answer 2

kaershaw(一苇渡江&&欲出江湖)5个金币，谁有呀

Answer 3

给你一段拷贝文件的代码。。自己看吧。。
{This way uses a File stream.}
Procedure FileCopy( Const sourcefilename, targetfilename: String );
Var
  S, T: TFileStream;
Begin
  S := TFileStream.Create( sourcefilename, fmOpenRead );  try
    T := TFileStream.Create( targetfilename,
                             fmOpenWrite or fmCreate );
    try
      T.CopyFrom(S, S.Size ) ;
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
End;{This way uses memory blocks for read/write.}
procedure FileCopy(const FromFile, ToFile: string);
 var
  FromF, ToF: file;
  NumRead, NumWritten: Word;
  Buf: array[1..2048] of Char;
begin
  AssignFile(FromF, FromFile);
  Reset(FromF, 1);  { Record size = 1 }  AssignFile(ToF, ToFile); { Open output file }
  Rewrite(ToF, 1);  { Record size = 1 }
  repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(FromF);
  CloseFile(ToF);
end;{This one uses LZCopy, which USES LZExpand.}
procedure CopyFile(FromFileName, ToFileName: string);
var
  FromFile, ToFile: File;
begin
  AssignFile(FromFile, FromFileName); { Assign FromFile to FromFileName }  AssignFile(ToFile, ToFileName);     { Assign ToFile to ToFileName }
  Reset(FromFile);                    { Open file for input }
  try
    Rewrite(ToFile);                  { Create file for output }
    try
      { copy the file an if a negative value is returned }
      { raise an exception }
      if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle) < 0
        then
        raise EInOutError.Create('Error using LZCopy')
    finally
      CloseFile(ToFile);  { Close ToFile }    end;
  finally
    CloseFile(FromFile);  { Close FromFile }
  end;
end;