谁能帮我把这段delphi code转成C++ 的

Question

小弟会delphi不会C++ 但是由于需要请问有人可以帮我转一下吗？ 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.

Answer 1

1. 不是什么代码都能转来转去的，c++不支持vcl，要是能直接能转我才不用delphi呢，优化能力那么差
2. 这段代码只有dll入口点的代码没写错，剩下都什么乱七八糟的，也没必要翻了