来自delphi深度历险：
function PreviewWndProc(Wnd: HWND; Msg: UINT; WPARAM: Longint;
LPARAM: Longint): Integer; stdcall;
begin
case Msg of
WM_DESTROY:
begin
PostQuitMessage(0);
Result := 0;
end;
else
Result := DefWindowProc(Wnd, Msg, WPARAM, LPARAM);
end;
end;
procedure PreviewSaver;
const
PREVIEW_CLASSNAME = 'XEssayScreenSaverPreview';
var
WndClass: TWndClass;
MyWnd : HWND;
Msg : TMsg;
R : TRect;
begin
with WndClass do
begin
Style := 0;
lpfnWndProc := @PreviewWndProc;
cbClsExtra := 0;
cbWndExtra := 0;
HICON := 0;
HInstance := SysInit.HInstance;
HCURSOR := 0;
hbrBackground := 0;
lpszMenuName := nil;
lpszClassName := PREVIEW_CLASSNAME;
end;
Windows.RegisterClass(WndClass);
GetWindowRect(ParamHandle, R);
MyWnd := CreateWindow(PREVIEW_CLASSNAME, 'XEssaySaver',
WS_CHILD or WS_DISABLED or WS_VISIBLE, 0, 0,
R.Right - R.Left, R.Bottom - R.Top,
ParamHandle, 0, HInstance, nil);
with TDrawThread.Create(MyWnd) do // ?ミ笲??み磅︽狐
begin
// 癟?癹伴
while GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
Terminate; // 挡?笲??み磅︽狐
end;
{ ??よ?爹??跌怠摸? }
UnregisterClass(PREVIEW_CLASSNAME, HInstance);
end;
end.
