верно конвертировало? Delphi to C++Builder???

[beegl]

нашел программу: Delphi to C++Builder

 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: /*;
:::Модуль для эмуляции запущенной IDE Delphi:::::::::::::::::::::::::: ;
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*/ ;
unit EmulRunDelphi;
     interface
uses
    Windows, Messages;
procedure ShutDown;
Longint):Longint stdcall; function WindowProc(hWnd,Msg,wParam,lParam;
procedure Emulator;
{
TWndClass    wClass,wclass2,wclass3,wclass4;
HWND    hInst;
TMSG    Msg;
implementation
procedure ShutDown;

     UnRegisterClass("TAppBuilder",hInst);
     UnRegisterClass("TApplication",hInst);
     UnRegisterClass("TPropertyInspector",hInst);
     UnRegisterClass("TAlignPalette",hInst);
     ExitProcess(hInst);
}
Longint):Longint stdcall; function WindowProc(hWnd,Msg,wParam,lParam;
{
     Result=DefWindowProc(hWnd,Msg,wParam,lParam);
}
procedure Emulator;
{
     hInst=GetModuleHandle(NULL);
with wClass do
{
     Style = 0;
     hIcon = LoadIcon(hInst,"MAinICON");
     lpfnWndProc = &WindowProc;
     hInstance = hInst;
     hbrBackground = COLor_BTNFACE+1;
     lpszClassName = "TAppBuilder";
     hCursor = LoadCursor(0,IDC_ARROW);
}
with wClass2 do
{
     Style = 0;
     hIcon = LoadIcon(hInst,"MAinICON");
     lpfnWndProc = &WindowProc;
     hInstance = hInst;
     hbrBackground = COLor_BTNFACE+1;
     lpszClassName = "TApplication";
     hCursor = LoadCursor(0,IDC_ARROW);
}
with wClass3 do
{
     Style = 0;
     hIcon = LoadIcon(hInst,"MAinICON");
     lpfnWndProc = &WindowProc;
     hInstance = hInst;
     hbrBackground = COLor_BTNFACE+1;
     lpszClassName = "TAlignPalette";
     hCursor = LoadCursor(0,IDC_ARROW);
}
with wClass4 do
{
     Style = 0;
     hIcon = LoadIcon(hInst,"MAinICON");
     lpfnWndProc = &WindowProc;
     hInstance = hInst;
     hbrBackground = COLor_BTNFACE+1;
     lpszClassName = "TPropertyInspector";
     hCursor = LoadCursor(0,IDC_ARROW);
}
   RegisterClass(wClass);
   RegisterClass(wClass2);
   RegisterClass(wClass3);
   RegisterClass(wClass4);
   CreateWindow("TAppBuilder",NULL,WS_POPUP,-1,-1,0,0,0,0,hInst,NULL);
   CreateWindow("TApplication",NULL,WS_POPUP,-1,-1,0,0,0,0,hInst,NULL);
   CreateWindow("TAlignPalette",NULL,WS_POPUP,-1,-1,0,0,0,0,hInst,NULL);
   CreateWindow("TPropertyInspector",NULL,WS_POPUP,-1,-1,0,0,0,0,hInst,NULL);
}
initialization
   Emulator
finalization
   ShutDown
}

[Serge_Bliznykov]

Сообщение от beegl

верно конвертировало?

на мой взгяд - нет, не верно.

[min@y™]

Сообщение от beegl

нашел программу: Delphi to C++Builder

Тебя кинули. Бывает.

[beegl]

Сообщение от min@y™

Тебя кинули. Бывает.

а эта?

Delphi2Cpp Professional

[min@y™]

Чувак, тебе зачем это всё? Чтобы юзать платные компоненты?