API窗口问题(100分)

jingtao · 2004-03-09

//file

roject1.dpr program Project1; uses   Windows,   Unit_MainForm; {$R *.res} Var TheMessage:TMsg; begin   if not MyCreateWinForm('strServerClassName','strServrerCaption') then halt;   while GetMessage(TheMessage,0,0,0) do   begin     TranslateMessage(TheMessage);     DispatchMessage(TheMessage);     // sleep(20);   end; end. //file: unit Unit_MainForm; interface uses   Windows; function MyCreateWinForm(strWindowClass,strWindowCaption:string):Bool;stdcall; implementation const  WM_CREATE           = $0001;  WM_DESTROY          = $0002;  Timer1:integer=1; procedure OnFormCreate;forward; procedure OnFormDestroy;forward; procedure OnTimer1;forward; var WinClass: TWndClassA; hWindow: HWND;       procedure Time1pro(hWnd: Longint; uMsg: UINT; idEvent: UINT; Time: DWORD); stdcall; begin OnTimer1; end; function WindowProc(hWindow: HWnd; Message, wParam, lParam: Integer): Integer; stdcall; begin Result:=0; case Message of    WM_Create:       begin       OnFormCreate;       end;    WM_DESTROY:       begin         OnFormDestroy;         PostQuitMessage(0);         Exit;       end;   else     Result := DefWindowProc(hWindow, Message, wParam, lParam);   end; end; function MyCreateWinForm(strWindowClass,strWindowCaption:string):Bool;stdcall; var hFont: Integer; Inst: HINST; begin { Register Custom WndClass }   Result:=False;   Inst := hInstance;   with WinClass do     begin       style := CS_CLASSDC or CS_PARENTDC;       lpfnWndProc := @WindowProc;       hInstance := Inst;       hbrBackground := color_btnface + 1;       lpszClassname := Pchar(strWindowClass);       hIcon := LoadIcon(Inst, 'Mainicon');       hCursor := LoadCursor(0, IDC_ARROW);     end; { with }     if  RegisterClass(WinClass)=0 then Exit;     hWindow := CreateWindowEx(WS_EX_WINDOWEDGE, Pchar(strWindowClass),Pchar(strWindowCaption),     WS_MINIMIZEBOX or WS_SYSMENU or WS_VISIBLE,     (GetSystemMetrics(SM_CXSCREEN) - 300) div 2,     (GetSystemMetrics(SM_CYSCREEN) - 300) div 2, 300, 330, 0, 0, Inst, nil);     if hWindow=0 then Exit;   SetTimer(hWindow, Timer1, 4000, @Time1pro);{注意这里!!!}   UpdateWindow(hWindow);   Result:=True; end; {==============================================================================} procedure OnFormCreate; begin MessageBox(0,'OnFormCreate','',MB_OK); end; procedure OnFormDestroy; begin MessageBox(0,'OnFormDestroy','',MB_OK); end; procedure OnTimer1; begin KillTimer(hWindow,Timer1); MessageBox(0,'OnTimer1','',MB_OK); end; {==============================================================================} end. 如果把SetTimer(hWindow, Timer1, 4000, @Time1pro);{注意这里!!!} 这句放在 procedure OnFormCreate; begin MessageBox(0,'OnFormCreate','',MB_OK); end; 里面,发现OnTimer1;里面的KillTimer(hWindow,Timer1);根本不起作用.为什么???放在 WM_Create:却是可以的.

app2001 · 2004-03-09

这个你看一下吧 program AutoShutDown; uses   ExceptionLog,   Windows,   ShellAPI,   Sysutils,   Messages; {$R *.RES} var   WinClass: TWndClassA;   Handle: hwnd;   Inst, Button1, Label1, Edit1: Integer;   Msg: TMsg;   tid: TNotifyIconDataA;   sdt: tdatetime;   timerid: integer;   hFont: Integer; const   AppName = 'AutoShutDown';   st = '定时关机';   About = st + ' 1.0, Keyes.chen@263.net, Keyes 1999.10.23';   gjs = '设定关机时间'; procedure SetShutdownTime; var   Textlength: Integer;   Text: PChar; i: tdatetime; begin   TextLength := GetWindowTextLength(Edit1);   GetMem(Text, TextLength + 1);   GetWindowText(Edit1, Text, TextLength + 1);   try     i := Strtodatetime(Text);     if i <= now then     begin       MessageBox(handle, '不对吧!太早了.', '错误', mb_ok or MB_ICONERROR);       exit;     end;     sdt := i;     timerid := Settimer(handle, 1000, 1000, nil);     Showwindow(handle, sw_hide);     lstrcpy(tid.szTip, pchar(st + '  关机时间:' + Datetimetostr(sdt)));     Shell_NotifyIcon(nim_modify, @tid);   except     Killtimer(handle, timerid);     Messagebox(handle, pchar('关机时间设定错误'#13#10#13#10 + '格式因该是:' + Datetimetostr(now)), AppName, Mb_ok or MB_ICONINFORMATION);   end;   FreeMem(Text, TextLength + 1); end; function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall; var pt: tpoint; pm: Hmenu; begin   result := 0;   case uMsg of     wm_timer:       begin         if now >= sdt then         begin           Killtimer(handle, timerid);           ExitWindowsEx(EWX_SHUTDOWN or EWX_Force, 0); //    PostMessage(handle,wm_Destroy,0,0);         end;       end;     wm_User:       begin         case lparam of           WM_LBUTTONDBLCLK:             begin               showwindow(handle, sw_restore);               setforegroundwindow(handle);             end;           wm_LButtonDown, wm_RButtonDown:             begin               GetCursorPos(pt);               pm := CreatePopupMenu;               AppendMenu(pm, 0, Ord('S'), gjs);               AppendMenu(pm, 0, Ord('A'), '关于...');               AppendMenu(pm, mf_Separator, 0, nil);               AppendMenu(pm, 0, Ord('E'), '退出');               SetForegroundWindow(handle);               if TrackPopupMenu(pm, tpm_BottomAlign or tpm_RightAlign, pt.x, {GetDeviceCaps(dc,Vertres)} pt.y, 0, handle, nil) then                 SetForegroundWindow(handle);               DestroyMenu(pm)             end;         end;       end;     wm_Destroy:       begin         Shell_NotifyIcon(nim_Delete, @tid);         Killtimer(handle, timerid);         halt;       end;     wm_Command:       begin         if (lParam = Button1) then begin SetshutdownTime; exit end;         case Loword(wParam) of           Ord('A'): MessageBox(0, About, AppName, mb_ok or MB_ICONINFORMATION);           Ord('E'): PostMessage(handle, wm_Close, 0, 0);           Ord('S'):             begin               Showwindow(handle, sw_restore);             end;         end;       end;   end;   Result := DefWindowProc(hWnd, uMsg, wParam, lParam); end; begin   { ** Register Custom WndClass ** }   if FindWindow(AppName, nil) <> 0 then begin     Messagebox(handle, '已经有一个AutoShutDown运行了', AppName, mb_ok or MB_ICONWARNING);     halt(0);   end;   Inst := hInstance;   with WinClass do   begin     style := CS_CLASSDC or CS_PARENTDC;     lpfnWndProc := @WindowProc;     hInstance := Inst;     hbrBackground := color_btnface + 1;     lpszClassname := AppName;     hCursor := LoadCursor(0, IDC_ARROW);   end;   RegisterClass(WinClass);   Handle := CreateWindowEx(WS_EX_WINDOWEDGE, AppName, 'AutoShutDown 1.00',     WS_VISIBLE {or WS_SIZEBOX} or WS_CAPTION or WS_SYSMENU,     283, 238, 325, 65, 0, 0, Inst, nil);   Button1 := CreateWindow('Button', 'OK', WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,     236, 8, 75, 20, handle, 0, Inst, nil);   Label1 := Createwindow('Static', '', WS_VISIBLE or WS_CHILD or SS_LEFT,     8, 12, 80, 13, Handle, 0, Inst, nil);   Edit1 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', Pchar(Datetimetostr(now)), WS_CHILD or WS_VISIBLE or     WS_BORDER {or ES_PASSWORD}, 88, 8, 141, 21, Handle, 0, Inst, nil);   hFont := CreateFont(-12, 0, 0, 0, 500, 0, 0, 0, GB2312_CHARSET,     OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,     DEFAULT_PITCH or FF_DONTCARE, '宋体');   if hFont <> 0 then   begin     SendMessage(Button1, WM_SETFONT, hFont, 0);     SendMessage(Label1, WM_SETFONT, hFont, 0);     SendMessage(Edit1, WM_SETFONT, hFont, 0);   end;   SetWindowText(Label1, pchar(gjs + ':'));   SetFocus(Edit1);   UpdateWindow(Handle);   tid.cbSize := sizeof(tid);   tid.Wnd := handle;   tid.uID := 1;   tid.uFlags := nif_Message or nif_Icon or nif_Tip;   tid.uCallBackMessage := wm_User;   tid.hIcon := LoadIcon(hInstance, 'MAINICON');   lstrcpy(tid.szTip, st);   Shell_NotifyIcon(nim_Add, @tid);   while (GetMessage(Msg, Handle, 0, 0)) do   begin     TranslateMessage(msg);     DispatchMessage(msg);   end; end.

wind28 · 2004-03-13

好东西，收藏。

独帅 · 2004-03-16

在OnFormCreate时的hWindow是个全局变量，而在WindowProc中的hWindow是个局部变量

独帅 · 2004-03-16

原因很简单：WM_CREATE消息是在CreateWindowEx时触发的 程序的逻辑是这样的： 1、主程序调用MyCreateWinForm中的：    hWindow := CreateWindowEx(...);//这时候hWindow=0 2、在CreateWindowEx函数还未返回的时候在函数WindowProc(hWindow: HWnd;...)里面触发了WM_CREATE消息，在WindowProc里面的hWindow是局部变量，是真正创建的窗口Handle(假设为123) 3、如果在WM_CREATE的时候调用SetTimer(hWindow...)，也就是这样的：SetTimer(123, ...) 4、如果OnFormCreate里面调用SetTimer(hWindow...)，这时的hWindow是你定义的全局变量，并且这时候hWindow=0，调用过程也就成了SetTimer(0, ...) 5、当在OnTimer1中KillTimer(hWindow,Timer1);时CreateWindowEx早已返回了，全局变量hWindow也变成了真正窗口的Handle(123)，所以如果是在WM_CREATE中调用的SetTimer(123, ...)，这时就可以真正的KillTimer了，如果是在OnFormCreate中做的，KillTimer在hWindow(123)中根本找不到这个Timer，所以也就不起作用了(这时候就要KillTimer(0, ...)才可以~~~~~~)(KillTimer的第一个参数要求的是与SetTimer中相同的参数)

jingtao · 2004-03-30

多人接受答案了。

API窗口问题(100分)

jingtao

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

wind28

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

Similar threads