Naprawdę nie ma nikogo, kto potrafiłby by to zrobić? Rzucę trochę kodu:
Randomize;
NewClass.style:=CS_GLOBALCLASS;
NewClass.lpfnWndProc:=@WindowProc;
NewClass.hInstance:=HInstance;
NewClass.hIcon:=LoadIcon(0, IDI_APPLICATION);
NewClass.hCursor:=LoadCursor(0, IDC_ARROW);
NewClass.hbrBackground:=COLOR_WINDOW;
NewClass.lpszClassName:='zMainWindow';
RegisterClass(NewClass);
NewWindow:=CreateWindow(NewClass.lpszClassName, Title, WS_VISIBLE or WS_SYSMENU,
0, 0, Width, Height, 0, 0, HInstance, nil);
Result:=NewWindow;
while GetMessage(NewMsg, 0, 0, 0) do
begin
TranslateMessage(NewMsg);
DispatchMessage(NewMsg);
end;
To jest kod funkcji szCreateWindow, ma za zadanie zarejestować klasę i stworzyć okno.