不安装.NET Framework 运行C#.NET程序 收藏
首先,要说明的是飞信也是用C#写的,但是我们在运行C#时,并不用安装.NET Framework,这事因为,飞信本身内置了一个.NET 虚拟程序,由这个程序来调用我们飞信主程序。
同样,我们要可以利用这可现成的虚拟机来运行我们的C#.NET程序,这样即使在没有安装.NETFramework的windows系统中,也可以运行我们的C#.NET程序。
具体方法如下,复制飞信下的文件夹VMDotNet/v2.0.50727文件夹到你的C#.NET目录程序,该文件夹下有一个程序FetionVM.exe,我们就是要通过它,运行我么的C#主程序,起调用方法如下:
"FetionVM.exe C#程序路径"(不包括引号),然后,我们只要用C/C++、VB、DELPHI等等windows下课直接运行的程序,写一个程序来调用该虚拟机来运行我们的C#.NET程序。
下面一delphi为例子:
首先,程序目录下虚拟机的文件夹名称为VM,该目录下有编写好的C#程序名为ACs.exe,delphi代码如下
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,registry;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
reg:tregistry;
begin
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.KeyExists('SOFTWARE/Microsoft/.NETFramework/v2.0.50727') then //通过注册表,判断系统是否安装有.NETFramework v2.0 如果有,直接运行C#程序,如果没有则通过虚拟机调用C#程序
BEGIN
winexec('./VM/ACs.exe',SW_Show);
END
else //如果键值不存在 调用虚拟机
begin
Form1.Visible := false;
winexec('./VM/FetionVM.exe ./VM/ACs.exe',SW_Show);
end;
reg.CloseKey;
reg.free;
ExitProcess(0);
Application.Terminate;
end;
end.
//------------------------这样主程序编写完成
然后选择 project>view source 然后添加语句
Application.ShowMainForm:=false; //隐藏程序主窗体
然后生成程序
然后把delphi生产的exe程序放在程序目录下,运行即可直接调用我们的C#程序
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/wazhpi/archive/2008/12/29/3634763.aspx