Delphi控件源码

开发平台：

Delphi

resources.pas：源码内容

							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.
 

						