请问这代码该怎么转成C#

codediy1 2010-06-27 12:23:59

library Project1;

uses
SysUtils,
Classes,
forms,
windows,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

procedure WinMain;
var

fomr1:Tform;

begin
form1:=tform1.Create(form1);
form1.ShowModal;

end;

procedure DllEntryPoint(hModule: HMODULE; Reason: Integer; lpReserved: Pointer);
var
Thread: DWORD;
begin
case Reason Of
DLL_PROCESS_ATTACH:
CreateThread(nil,0,@WinMain,nil,0,Thread);
DLL_PROCESS_DETACH:
CloseHandle(Thread);
end;
end;

begin
DllProc:=@DLLEntryPoint;
DLLEntryPoint(hInstance,DLL_PROCESS_ATTACH,nil);

end.

这是Delphi DLL文件中的代码想问下C#该如何写?

...全文

72 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

codediy1 2010-06-27

打赏
举报

[Quote=引用 1 楼 computerfox 的回复:]
这是Delphi的，你如果知道delphi，就注释一下上面的代码，就会有朋友可以帮你转写成C#了。
reply by 阿捷
[/Quote]



library Project1;



uses //引用单元

  SysUtils,

  Classes,

  forms,

  windows,

  Unit1 in 'Unit1.pas' {Form1};//Form1



{$R *.res}



procedure WinMain; //form1.ShowModal

var



fomr1:Tform;





begin

form1:=tform1.Create(form1);

form1.ShowModal;



end;





procedure DllEntryPoint(hModule: HMODULE; Reason: Integer; lpReserved: Pointer);

var //DLLMAIN

Thread: DWORD;

begin

case Reason Of

  DLL_PROCESS_ATTACH://DLL入口CreateThread

  CreateThread(nil,0,@WinMain,nil,0,Thread);

  DLL_PROCESS_DETACH:

  CloseHandle(Thread);

end;

end;



begin

DllProc:=@DLLEntryPoint;

DLLEntryPoint(hInstance,DLL_PROCESS_ATTACH,nil);



end.