Program Test;
{
This File Create By PasAnyWhere1.2
Author:[email protected] 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.这段没整明白和传奇有关吗?
{
This File Create By PasAnyWhere1.2
Author:[email protected] 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.这段没整明白和传奇有关吗?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货