论坛 › Delphi交流 › 学了几天delphi,写了个小游戏.

kkkkkkiiy 发表于 2021-4-3 16:32:22

66666666{:5_97:}

小明. 发表于 2021-4-6 09:03:23

1

rewrited 发表于 2021-4-15 19:41:15

1

一只大猩猩 发表于 2021-4-19 14:07:35

请问请问我群二群翁群翁群翁

qq1042845620 发表于 2021-4-19 20:24:13

6

CccL 发表于 2021-4-20 09:03:34

想看看是什么游戏呀{:5_105:}

fang-z 发表于 2021-5-7 16:10:36

1

xiangfengi 发表于 2021-5-9 11:19:21

11

badboy991 发表于 2021-5-10 22:37:27

学习

我待生活如初恋 发表于 2021-5-24 17:01:51

1

nanrenne 发表于 2021-5-26 08:41:45

什么游戏

北笙南 发表于 2021-6-2 15:26:52

看看

残雪纷飞 发表于 2021-6-14 16:52:14

111111111111111111111111

LG0090 发表于 2021-6-17 00:36:56

看

秃头灰太狼 发表于 2021-6-17 17:12:09

看看

KT巴雷特 发表于 2021-6-19 15:27:04

康康

高山 发表于 2021-6-27 09:47:13

我来看看

冯雨生 发表于 2021-7-19 08:59:43

#include <windows.h>

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow)
{
      static TCHAR szAppName[] = TEXT("MyWindows");
      HWND hwnd;
      MSG msg;
      WNDCLASS wndclass;

      wndclass.style = CS_HREDRAW | CS_VREDRAW;
      wndclass.lpfnWndProc = WndProc;
      wndclass.cbClsExtra = 0;
      wndclass.cbWndExtra = 0;
      wndclass.hInstance = hInstance;
      wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION);
      wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
      wndclass.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
      wndclass.lpszMenuName = NULL;
      wndclass.lpszClassName = szAppName;

      if (!RegisterClass(&wndclass))
      {
                MessageBox(NULL, TEXT("这个程序需要在 Windows NT 才能执行！"), szAppName, MB_ICONERROR);
                return 0;
      }

      hwnd = CreateWindow(szAppName,
                TEXT("鱼C工作室"),
                WS_OVERLAPPEDWINDOW,
                CW_USEDEFAULT,
                CW_USEDEFAULT,
                CW_USEDEFAULT,
                CW_USEDEFAULT,
                NULL,
                NULL,
                hInstance,
                NULL);
      
      ShowWindow(hwnd, iCmdShow);
      UpdateWindow(hwnd);

      while (GetMessage(&msg, NULL, 0, 0))
      {
                TranslateMessage(&msg);
                DispatchMessage(&msg);
      }

      return msg.wParam;
}

LRESULT CALLBACK WndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
      HDC hdc;
      PAINTSTRUCT ps;
      RECT rect;

      switch (message)
      {
      case WM_PAINT:
                hdc = BeginPaint(hwnd, &ps);
                GetClientRect(hwnd, &rect);
                DrawText(hdc, TEXT("大家好，这是我的第一个窗口程序！"), -1, &rect,
                        DT_SINGLELINE | DT_CENTER | DT_VCENTER);
                EndPaint(hwnd, &ps);
                return 0;

      case WM_DESTROY:
                PostQuitMessage(0);
                return 0;
      }

      return DefWindowProc(hwnd, message, wParam, lParam);
}

a190150302 发表于 2021-8-6 17:36:55

几天就能写游戏了

suohao110 发表于 2021-8-12 12:59:18

看看~~~~~~~~~~

查看完整版本: 学了几天delphi,写了个小游戏.