建立一个api窗口(20分)

yifeibbs · 2002-12-21

用api建立一个简单的窗体，不需要任何其它东西（标签，按钮等等）。 不要涉及vcl，使用api函数调用的方式建立！ 不怕简单，完整源码！

一少 · 2002-12-21

HWND CreateWindow(   LPCTSTR lpClassName,  // registered class name   LPCTSTR lpWindowName, // window name   DWORD dwStyle,        // window style   int x,                // horizontal position of window   int y,                // vertical position of window   int nWidth,           // window width   int nHeight,          // window height   HWND hWndParent,      // handle to parent or owner window   HMENU hMenu,          // menu handle or child identifier   HINSTANCE hInstance,  // handle to application instance   LPVOID lpParam        // window-creation data );

yifeibbs · 2002-12-21

请给一个源码例子。 program API; uses   SysUtils,windows; begin   //建立   createwindow(pchar('xform'),pchar('xform1'),0,0,0,400,400,0,0,0,0);   //显示 end.

yifeibbs · 2002-12-21

createwindow();不是API呀

naughtboy · 2002-12-23

用createwindowex，需要uses shellapi吧

yifeibbs · 2002-12-24

本来记得看过一个例子，名字是世上代码最少的窗口。可惜没记住！ 我本来也以为建立一个调用api的窗口不是难事，所以只有一点分，没想到竟然没人给个代码看看！ 请大虾关心关心俺吧！俺加分！

YuZi · 2002-12-28

下面的工程文件建立一个空白窗体，自己看吧。 program Project1; uses   windows, messages; //消息处理函数 function MainWndProc(Wnd: HWND; Msg: UINT; WParam: WPARAM;                      LParam: LPARAM): LRESULT; stdcall; export; begin   Result := 0;   case Msg of     WM_DESTROY: PostQuitMessage(0);   else      result := DefWindowProc( Wnd, Msg, wParam, lParam );   end; end; var   wc: TWndClassA;   hWindow: HWND;   Msg: TMsg; begin  with wc do   begin     lpszClassName   := 'AppClass';     lpfnWndProc     := @MainWndProc;     style           := CS_VREDRAW or CS_HREDRAW;     hInstance       := hInstance;     hIcon           := LoadIcon(0,IDI_APPLICATION);     hCursor         := LoadCursor(0,IDC_ARROW);     hbrBackground   := (COLOR_WINDOW+1);     lpszMenuName    := nil;     cbClsExtra      := 0;     cbWndExtra      := 0;   end;   RegisterClassA(wc);   hWindow := CreateWindowEx(WS_EX_CONTROLPARENT or WS_EX_WINDOWEDGE,                           'AppClass',                           'API',                           WS_VISIBLE or WS_CLIPSIBLINGS or                           WS_CLIPCHILDREN or WS_OVERLAPPEDWINDOW,                           10,10,                           400,300,                           0,                           0,                           hInstance,                           nil);   ShowWindow(hWindow,CmdShow);   while GetMessage(Msg, 0, 0, 0) do   begin     TranslateMessage(Msg);     DispatchMessage(Msg);   end; end.

gxcooo · 2002-12-28

/////////////////////////////////////////////////////////////////////////////// // ddex1_api.dpr /////////////////////////////////////////////////////////////////////////////// // Delphi conversion of the ddex1 example contained in Microsoft's DirectX sdk. // Based on Eric Unger's conversions of the DirectX headers. They're available // at http://www.delphi-jedi.org. Bug reports to meyerhoff@earthling.net. /////////////////////////////////////////////////////////////////////////////// // Description: // Direct Draw example program 1.  Creates a Direct Draw object and then a // primary surface with a back buffer. Slowly flips between the primary surface // and the back buffer. Press F12 or Escape to terminate the program. /////////////////////////////////////////////////////////////////////////////// program ddex1_api; //----------------------------------------------------------------------------- // Include files //----------------------------------------------------------------------------- uses   Windows, Messages, DirectDraw, SysUtils; {$R *.res} const   //---------------------------------------------------------------------------   // Local definitions   //---------------------------------------------------------------------------   NAME  : PChar = 'DDExample1';   TITLE : PChar = 'Direct Draw Example 1';   //---------------------------------------------------------------------------   // Default settings   //---------------------------------------------------------------------------   TIMER_ID   = 1;   TIMER_RATE = 500; var   //---------------------------------------------------------------------------   // Global data   //---------------------------------------------------------------------------   g_pDD         : IDirectDraw7;                // DirectDraw object   g_pDDSPrimary : IDirectDrawSurface7;         // DirectDraw primary surface   g_pDDSBack    : IDirectDrawSurface7;         // DirectDraw back surface   g_bActive     : Boolean             = False; // Is application active?   //---------------------------------------------------------------------------   // Local data   //---------------------------------------------------------------------------   szMsg      : PChar = 'Page Flipping Test: Press F12 to exit';   szFrontMsg : PChar = 'Front buffer (F12 to quit)';   szBackMsg  : PChar = 'Back buffer (F12 to quit)'; //----------------------------------------------------------------------------- // Name: ReleaseAllObjects // Desc: Finished with all objects we use; release them //----------------------------------------------------------------------------- procedure ReleaseAllObjects; begin   if Assigned(g_pDD) then     begin       if Assigned(g_pDDSBack) then         begin           g_pDDSBack := nil;         end;       if Assigned(g_pDDSPrimary) then         begin           g_pDDSPrimary := nil;         end;       g_pDD := nil;     end; end; //----------------------------------------------------------------------------- // Name: InitFail // Desc: This function is called if an initialization function fails //----------------------------------------------------------------------------- function InitFail(h_Wnd : HWND; hRet : HRESULT; Text : string) : HRESULT; begin   ReleaseAllObjects;   MessageBox(h_Wnd, PChar(Text + ': ' + DDErrorString(hRet)), TITLE, MB_OK);   DestroyWindow(h_Wnd);   Result := hRet; end; //----------------------------------------------------------------------------- // Name: UpdateFrame // Desc: Displays the proper text for the page //----------------------------------------------------------------------------- var   phase : Boolean = False;   procedure UpdateFrame(h_Wnd : HWND); var   h_DC    : HDC;   ddbltfx : TDDBltFx;   rc      : TRect;   size    : TSize; begin   // Use the blter to do a color fill to clear the back buffer   FillChar(ddbltfx, SizeOf(ddbltfx), 0);   ddbltfx.dwSize := SizeOf(ddbltfx);   ddbltfx.dwFillColor := 0;   g_pDDSBack.Blt(nil, nil, nil, DDBLT_COLORFILL or DDBLT_WAIT, @ddbltfx);   if g_pDDSBack.GetDC(h_DC) = DD_OK then     begin       SetBkColor(h_DC, RGB(0, 0, 255));       SetTextColor(h_DC, RGB(255, 255, 0));       if phase then         begin           GetClientRect(h_Wnd, rc);           GetTextExtentPoint(h_DC, szMsg, StrLen(szMsg), size);           TextOut(h_DC, (rc.right - size.cx) div 2, (rc.bottom - size.cy) div 2, szMsg, StrLen(szMsg));           TextOut(h_DC, 0, 0, szFrontMsg, StrLen(szFrontMsg));           phase := False;         end       else         begin           TextOut(h_DC, 0, 0, szBackMsg, StrLen(szBackMsg));           phase := True;         end;       g_pDDSBack.ReleaseDC(h_DC);     end; end; //----------------------------------------------------------------------------- // Name: WindowProc // Desc: The Main Window Procedure //----------------------------------------------------------------------------- function WindowProc(h_Wnd: HWND; aMSG: Cardinal; wParam: Cardinal; lParam: Integer) : Integer; stdcall; var   hRet : HRESULT; begin   case aMSG of     // Pause if minimized     WM_ACTIVATE:       begin         if HIWORD(wParam) = 0 then           g_bActive := True         else           g_bActive := False;         Result := 0;         Exit;       end;     // Clean up and close the app     WM_DESTROY:       begin         ReleaseAllObjects;         PostQuitMessage(0);         Result := 0;         Exit;       end;     // Handle any non-accelerated key commands     WM_KEYDOWN:       begin         case wParam of           VK_ESCAPE,           VK_F12:             begin               PostMessage(h_Wnd, WM_CLOSE, 0, 0);               Result := 0;               Exit;             end;         end;       end;     // Turn off the cursor since this is a full-screen app     WM_SETCURSOR:       begin         SetCursor(0);         Result := 1;         Exit;       end;     // Update and flip surfaces     WM_TIMER:       begin         if g_bActive and (TIMER_ID = wParam) then           begin             UpdateFrame(h_Wnd);             while True do               begin                 hRet := g_pDDSPrimary.Flip(nil, 0);                 if hRet = DD_OK then                     Break;                 if hRet = DDERR_SURFACELOST then                   begin                     hRet := g_pDDSPrimary._Restore;                     if hRet <> DD_OK then                       Break;                   end;                 if hRet <> DDERR_WASSTILLDRAWING then                   Break;               end;           end;       end;     end;   Result := DefWindowProc(h_Wnd, aMSG, wParam, lParam); end; //----------------------------------------------------------------------------- // Name: InitApp // Desc: Do work required for every instance of the application: //          Create the window, initialize data //----------------------------------------------------------------------------- function InitApp(hInst : THANDLE; nCmdShow : Integer) : HRESULT; var   h_Wnd : HWND;   wc : WNDCLASS;   ddsd : TDDSurfaceDesc2;   ddscaps : TDDSCaps2;   hRet : HRESULT;   pDDTemp : IDirectDraw; begin   // Set up and register window class   wc.style := CS_HREDRAW or CS_VREDRAW;   wc.lpfnWndProc := @WindowProc;   wc.cbClsExtra := 0;   wc.cbWndExtra := 0;   wc.hInstance := hInst;   wc.hIcon := LoadIcon(hInst, 'MAINICON');   wc.hCursor := LoadCursor(0, IDC_ARROW);   wc.hbrBackground := GetStockObject(BLACK_BRUSH);   wc.lpszMenuName := NAME;   wc.lpszClassName := NAME;   RegisterClass(wc);   // Create a window   h_Wnd := CreateWindowEx(WS_EX_TOPMOST,                           NAME,                           TITLE,                           WS_POPUP,                           0,                           0,                           GetSystemMetrics(SM_CXSCREEN),                           GetSystemMetrics(SM_CYSCREEN),                           0,                           0,                           hInst,                           nil);   if h_Wnd = 0 then     begin       Result := 0;       Exit;     end;   ShowWindow(h_Wnd, nCmdShow);   UpdateWindow(h_Wnd);   SetFocus(h_Wnd);   ///////////////////////////////////////////////////////////////////////////   // Create the main DirectDraw object   ///////////////////////////////////////////////////////////////////////////   hRet := DirectDrawCreate(nil, pDDTemp, nil);   if hRet <> DD_OK then     begin       Result := InitFail(h_Wnd, hRet, 'DirectDrawCreate FAILED');       Exit;     end;   hRet := pDDTemp.QueryInterface(IDirectDraw7, g_pDD);   if hRet <> DD_OK then     begin       Result := InitFail(h_Wnd, hRet, 'QueryInterface FAILED');       Exit;     end;   pDDTemp := nil;   // Get exclusive mode   hRet := g_pDD.SetCooperativeLevel(h_Wnd, DDSCL_EXCLUSIVE or DDSCL_FULLSCREEN);   if hRet <> DD_OK then     begin       Result := InitFail(h_Wnd, hRet, 'SetCooperativeLevel FAILED');       Exit;     end;   // Set the video mode to 640x480x8   hRet := g_pDD.SetDisplayMode(640, 480, 8, 0, 0);   if hRet <> DD_OK then     begin       Result := InitFail(h_Wnd, hRet, 'SetDisplayMode FAILED');       Exit;     end;   // Create the primary surface with 1 back buffer   FillChar(ddsd, SizeOf(ddsd), 0);   ddsd.dwSize := SizeOf(ddsd);   ddsd.dwFlags := DDSD_CAPS or DDSD_BACKBUFFERCOUNT;   ddsd.ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE or DDSCAPS_FLIP or DDSCAPS_COMPLEX;   ddsd.dwBackBufferCount := 1;   hRet := g_pDD.CreateSurface(ddsd, g_pDDSPrimary, nil);   if hRet <> DD_OK then     begin       Result := InitFail(h_Wnd, hRet, 'CreateSurface FAILED');       Exit;     end;   // Get a pointer to the back buffer   FillChar(ddscaps, SizeOf(ddscaps), 0);   ddscaps.dwCaps := DDSCAPS_BACKBUFFER;   hRet := g_pDDSPrimary.GetAttachedSurface(ddscaps, g_pDDSBack);   if hRet <> DD_OK then     begin       Result := InitFail(h_Wnd, hRet, 'GetAttachedSurface FAILED');       Exit;     end;   // Create a timer to flip the pages   if TIMER_ID <> SetTimer(h_Wnd, TIMER_ID, TIMER_RATE, nil) then     begin       Result := InitFail(h_Wnd, hRet, 'SetTimer FAILED');       Exit;     end;   Result := DD_OK; end; //----------------------------------------------------------------------------- // Name: WinMain // Desc: Initialization, message loop //----------------------------------------------------------------------------- var   aMSG : MSG; begin   if InitApp(GetModuleHandle(nil), SW_SHOW) <> DD_OK then     begin       Exit;     end;   while GetMessage(aMSG, 0, 0, 0) do     begin       TranslateMessage(aMSG);       DispatchMessage(aMSG);     end; end.

gxcooo · 2002-12-28

上面是一个基本的DirectDraw程序，也很简单吧

yifeibbs · 2002-12-31

简单，简单，很简单...... 从上头到下头，我用鼠标拖滑块，只拖了1分半。

yifeibbs · 2003-06-19

结贴要紧

建立一个api窗口(20分)

yifeibbs

Unregistered / Unconfirmed

一少

Unregistered / Unconfirmed

yifeibbs

Unregistered / Unconfirmed

yifeibbs

Unregistered / Unconfirmed

naughtboy

Unregistered / Unconfirmed

yifeibbs

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

gxcooo

Unregistered / Unconfirmed

gxcooo

Unregistered / Unconfirmed

yifeibbs

Unregistered / Unconfirmed

yifeibbs

Unregistered / Unconfirmed

Similar threads