api写的程序（没有form）怎么更改程序的图标

api写的程序（没有form）如何更改程序的图标？
api写的程序（没有form）如何更改程序的图标？
代码如下：
program   miniapp;
uses
    Windows,
    Messages;

{$R   *.res}
const
    szAppName   :   PChar   =   'MiniApp ';
function   WndProc(AWnd:HWND;   message:UINT;   wp:WPARAM;   lp:LPARAM):LRESULT;stdcall;
begin
    Result   :=   0;
    case   message   of
        WM_DESTROY:
              PostQuitMessage(0);
        else
              Result   :=   DefWindowProc(AWnd,   message,   wp,   lp);
    end;
end;
 
var
    wc   :   WNDCLASS;
    HMainWnd   :   HWND;
    AMsg   :   MSG;
    myreg:tregistry;
begin
    with   wc   do   begin
        style   :=   CS_VREDRAW   or   CS_HREDRAW;
        lpfnWndProc   :=   @WndProc;
        cbClsExtra   :=   0;
        cbWndExtra   :=   0;
        hIcon   :=   LoadIcon(0,   IDI_APPLICATION);
        hCursor   :=   LoadCursor(0,   IDC_ARROW);
        hbrBackground   :=   GetSysColorBrush(COLOR_WINDOW);
        hInstance   :=   HInstance;
        lpszMenuName   :=   nil;
        lpszClassName   :=   szAppName;
    end;
    RegisterClass(wc);
 
    HMainWnd   :=   CreateWindow(szAppName,
                                                      szAppName,
                                                      WS_OVERLAPPEDWINDOW,
                                                      Integer(CW_USEDEFAULT),   Integer(CW_USEDEFAULT),
                                                      Integer(CW_USEDEFAULT),   Integer(CW_USEDEFAULT),
                                                      HWND_DESKTOP,   0,
                                                      HInstance,   nil);
    ShowWindow(HMainWnd,   CmdShow);
    UpdateWindow(HMainWnd);
    while   GetMessage(AMsg,   0,   0,   0)   do   begin
        TranslateMessage(AMsg);
        DispatchMessage(AMsg);
    end;

end.

[解决办法]
就是改这个啊：hIcon := LoadIcon(0, IDI_APPLICATION);
[解决办法]
参考这个demo
D:\Program Files\Borland\Delphi7\Demos\ResXplor