Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2018, 10:09   #1
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,453
Хорошо верно конвертировало? Delphi to C++Builder???

нашел программу: 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
}
Вложения
Тип файла: zip Delphi to C++Builder.zip (648.0 Кб, 17 просмотров)
beegl вне форума Ответить с цитированием
Старый 10.05.2018, 10:15   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от beegl Посмотреть сообщение
верно конвертировало?
на мой взгяд - нет, не верно.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 10.05.2018, 10:48   #3
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Сообщение от beegl Посмотреть сообщение
нашел программу: Delphi to C++Builder
Тебя кинули. Бывает.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 10.05.2018, 18:32   #4
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,453
Лампочка

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Тебя кинули. Бывает.
а эта?

Delphi2Cpp Professional
Вложения
Тип файла: rar keygen.rar (25.8 Кб, 87 просмотров)
beegl вне форума Ответить с цитированием
Старый 10.05.2018, 18:40   #5
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Чувак, тебе зачем это всё? Чтобы юзать платные компоненты?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Синтаксис Delphi Builder --> C++ Builder KingBelt C++ Builder 2 28.11.2010 16:25
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism savva-paladin Софт 18 02.10.2010 20:24
Переписать программу с Qbasic на Delphi[переписал - считает не верно] Mixasik Свободное общение 4 20.05.2010 18:33
верно или не верно????? Polusha Помощь студентам 1 19.04.2010 20:16
[B]Народ! Проверки мне верно или не верно? мне надо завтра сдавать[/B] Vladislav_87 Паскаль, Turbo Pascal, PascalABC.NET 6 04.06.2008 14:34