Visual C 6.0. -> Паскаль

[sllh_111]

Здравствуйте, помогите пожалуйста перевести программу с Visual C 6.0. на язык Паскаль. Суть программы состоит в создании новых окон виндовс.

http://proger.h10.ru
*/

#include <windows.h>

// Объявление оконной процедуры
LRESULT CALLBACK WndProc(HWND hWnd,UINT msg,
WPARAM wParam,LPARAM lParam);

int WINAPI WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPSTR lpCmdLine, int iCmdShow)
{
const char szClassName[]="MyApp"; // Имя оконного класса
WNDCLASSEX wc;
MSG msg;
HWND hWnd;

// Заполняем поля структуры wc
wc.cbSize=sizeof(wc); // Размер структуры wc
wc.cbClsExtra=0; // дополнительная память для класса
wc.cbWndExtra=0; // дополнительная память для окна
wc.hbrBackground=CreateSolidBrush(R GB(135,163,187)); // Цвет фона окна
wc.hCursor=LoadCursor(0,IDC_ARROW); // Определяем курсор мыши
wc.hIcon=LoadIcon(hInstance,IDI_APP LICATION); // Иконка
wc.hIconSm=LoadIcon(hInstance,IDI_A PPLICATION); // Маленькая иконка
wc.hInstance=hInstance; // Хэндл экземпляра приложения
wc.lpfnWndProc=WndProc; // Имя оконной процедуры
wc.lpszClassName=szClassName; // Имя оконного класса
wc.lpszMenuName=NULL; // Имя меню
wc.style=CS_HREDRAW | CS_VREDRAW; // Стиль


// Регистрация нового оконного класса
if(!RegisterClassEx(&wc))
{
MessageBox(NULL,"Не могу зарегить класс","Ошибка",MB_OK | MB_ICONSTOP);
return -1;
}

// Создание окна
hWnd=CreateWindow( szClassName, // Имя оконного класса
"МоЁ Окно", // Заголовок окна
WS_OVERLAPPEDWINDOW, // Стиль окна
CW_USEDEFAULT, // Координата x
CW_USEDEFAULT, // Координата y
CW_USEDEFAULT, // Ширина окна
CW_USEDEFAULT, // Высота окна
0, // Хэндл окна родителя
NULL, // Хэндл меню
hInstance, // Хэндл экземпляра приложения
NULL); // Дополнительные параметры

if(hWnd==NULL)
{
MessageBox(NULL,"Не могу создать новое окно","Ошибка",MB_OK | MB_ICONSTOP);
return -1;
}

ShowWindow(hWnd,SW_SHOW); // Окно должно быть показано
UpdateWindow(hWnd); // Оконной процедуре посылается сообщение WM_PAINT

// Цикл обработки сообщений
while (GetMessage(&msg,0,0,0))
{
TranslateMessage(&msg); // Сообщения от клавиатуры
DispatchMessage(&msg); // Запуск оконной процедуры
}

return 0;
}


// Оконная процедура

LRESULT CALLBACK WndProc(HWND hWnd,
UINT msg,
WPARAM wParam,
LPARAM lParam)
{
HDC hDC;
PAINTSTRUCT ps;

switch(msg)
{

case WM_PAINT:
{
hDC=BeginPaint(hWnd,&ps);

// Что-то рисуется

EndPaint(hWnd,&ps);
}
break;

case WM_DESTROY:
PostQuitMessage(0);
break;

default:
return DefWindowProc(hWnd,msg,wParam,lPara m);
}

return 0;

[rUs_LAN]

у меня для тебя плохая новость...

[sllh_111]

какая, если не секрет?)

[rUs_LAN]

ну начнем с самого банального, в паскале нет классов.

мне вот интересно нафига тебе надо переводить тот код на паскаль, просто не могу придумать причину

[sllh_111]

Просто нужна программа, для создание окна виндовс(там где свернуть, развернуть и закрыть) внутри которого будет картинкой как фон, а нашел только вот это. (Другими словами, учитель сдавит зачет за тесты, учить слишком много, вот и хочу сделать результирующее окно теста. Фоновым рисунком рабочего стола сделать все это никак нельзя, админы доступ ограничели )

не знаю даже что и делать, может кто-нибудь поможет решить эту проблему?

[rUs_LAN]

я слишком плохо знаю русский язык чтобы понять о чем ты говоришь. И при чем тут паскаль и WinAPI ...

[Stilet]

ну начнем с самого банального, в паскале нет классов.

Есть, только они называются объектами.

Просто нужна программа, для создание окна виндовс

А вот для этого паскаль совсем не подходит (ну или уточни его версию)
FreePascal или Делфи - другое дело.