在DElphi中如何获得SDK中的绝对控制权限吗！

[Robin]

如题！
最好给个在DElphi中生成这种窗体的例子！
分数可以无限升级！

[Billy_Chen28]

//首先打开DELPHI5
//点击FILI->NEW->CONSOLE APPLICATION
//删除所有系统生成的程序代码
//COPY以下代码到程序：

program first;

uses Windows,Messages;

function AppWindowProc(
hWnd:HWND;
uMsg:UINT;
wParam:WPARAM;
lParam:LPARAM):LRESULT; stdcall;
begin
Result := 0;
case uMsg of
WM_DESTROY:
begin
PostQuitMessage(0);
Exit;
end;
WM_LBUTTONDOWN:
MessageBox(hwnd, '你已经触发了一个消息，恭喜你！','Billy.Chen的测试',MB_ICONINFORMATION);
end;
Result:=DefWindowProc(hWnd, uMsg, wParam, lParam);
end;

var
wcfirst: TWndClass;
hWnd: Integer;
MSG: TMsg;
begin
wcfirst.style := CS_VREDRAW or CS_HREDRAW;
wcfirst.lpfnWndProc := @AppWindowProc;
wcfirst.cbClsExtra := 0;
wcfirst.cbWndExtra := 0;
wcfirst.hInstance := HInstance;
wcfirst.hIcon := LoadIcon(0, IDI_APPLICATION);
wcfirst.hCursor := LoadCursor(0, IDC_ARROW);
wcfirst.hbrBackground := (COLOR_BTNFACE+1);
wcfirst.lpszMenuName := nil;
wcfirst.lpszClassName := 'MyTest';
if RegisterClass(wcfirst)=0 then Exit;
hWnd := CreateWindow(
wcfirst.lpszClassName,
'Billy.Chen的SDK/API测试！',
WS_OVERLAPPEDWINDOW,
Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),
0,
0,
HInstance,
nil);
if hWnd=0 then Exit;
ShowWindow(hWnd, SW_SHOWNORMAL);
while GetMessage(MSG, 0, 0, 0) do
begin
TranslateMessage(MSG);
DispatchMessage(MSG);
end;
end.

[LKylix]

那就不要用VCL啦，只用Object Pascal，注册窗口类，处理消息循环~~~~~~~学习还可以，实际上可能没人这么做吧。

[ly_liuyang]

不用VCL，效率很低的，根本不能开发稍微大一些的项目

[Robin]

先谢谢几位了！

[ehom]

怎么没用?如果是开发游戏,用VCL反倒是累赘!

[Robin]

SDK!
才可以获得最高的控制权利！