應用程序設計及框架-資料下載頁
2025-01-06 17:00本頁面
【正文】 ndWindow(類名 ,窗體標題名） 。 其中： “ 類名 ” 表示表示查找窗體所屬的類。 例如 ： 將項目文件修改為如下格式： Var Hwnd:Thandle。 begin Hwnd:=FindWindow(39。TForm139。,39。Main39。)。 //查找主窗體 If Hwnd=nil then //如果沒找到應用程序的主窗體則啟動應用程序 Begin 。 (TForm1, Form1)。 。 end。 end運行 2. 使用互斥對象 ?本方法是在應用程序中通過 CreateMutex函數(shù)創(chuàng)建互斥對象，若創(chuàng)建不成功，則說明系統(tǒng)已經啟動，則系統(tǒng)不再啟動。 ?使用格式： CreateMutex(lpMA, bIO, lpName) ?功能：創(chuàng)建互斥對象。 其中 ： ?參數(shù) lpMA是一個指向安全屬性的指針，一般使用空指針 nil，表示使用默認安全屬性。 ?參數(shù) bIO表示互斥對象是否指定初始所有者，一般默認為 True。 ?參數(shù) lpName用于設置要創(chuàng)建的互斥對象名。 ? 項目文件中的部分代碼： VAR Mutex:THandle。 begin Mutex:=CreateMutex(NIL,True,39。Form139。)。 //判斷創(chuàng)建互斥對象是否成功 IF GetLastErrorERROR_ALREADY_EXISTS THEN BEGIN 。 (TForm1, Form1)。 。 end。 ReleaseMutex(Mutex)。 end. 4. 設置應用程序啟動權限 ?通過項目文件中加入判斷進入權限的代碼，解決戶身份的驗證問題。 分析 ：由于應用程序運行是通過 Application的 Initialize、Createform、和 Run三個過程實現(xiàn)的，因此在執(zhí)行這豐類過程前加入判別用戶權限的指令，若符合要求則啟動，否則退出系統(tǒng)。程序基本格式如下： ? 輸入口令 Password ? if 系統(tǒng)口令 =Password then ? begin ? 執(zhí)行啟動程序代碼 。 ? end ? else ? 退出系統(tǒng)； 請看 的源程序實例： program Initialize。 uses Forms, Dialogs, ChangeScreen in 39。39。 {Form1}。 var Password: String。 {$R *.res} begin if InPutQuery(39。登錄口令 39。,39。輸入口令 39。,password) then begin if password= 39。Screen39。 then //判斷登錄口令 begin 。 (TForm1, Form1)。 。 end else MessageDlg(39?？诹畈徽_ ,程序終止 39。,mtError, [mbok],0)。 end。 end. 說明： InPutQuery和 MessageDlg在 。 5. 顯示封面 ? 生成應用程序正式啟動前的等待界面。 分析 ：影響應用系統(tǒng)啟動的是創(chuàng)建窗體過程，當要創(chuàng)建窗體所需內存較大時，創(chuàng)建過程可能需要較長的時間，因此封面顯示應在創(chuàng)建之前開始，創(chuàng)建完成之后結束，基本結構如下： ? 創(chuàng)建封面 ? 顯示封面 ? 創(chuàng)建系統(tǒng)所用窗體語句序列 ? 撤消封面顯示 ? 運行應用系統(tǒng) ? 項目中的部分代碼如下： 。 //創(chuàng)建封面 SplashFrm:=(Application)。 。 //顯示封面 。 //強制更新封面 //創(chuàng)建主窗體及其它窗體代碼從此開始 (TMainFrm，MainFrm)。 //創(chuàng)建窗體結束 。 //刪除封面窗體 ； 6. 重啟或退出 Windows ? 通過 Windows的 API函數(shù)可重新啟動操作系統(tǒng)。常用 的函數(shù)有： ExitWindowsEx，其使用格式如下： ExitWindowsEx(uFlags,dwReserved)。 功能：執(zhí)行 Windows操作系統(tǒng)的退出功能。 說明：函數(shù)的第二個參數(shù)由系統(tǒng)內部使用，調用時為其賦0值即可；參數(shù) uFlags可取三個值，分別為： EWX_LOGOFF ： 注銷 EWX_REBOOTE ： 重新啟動 WX_SHUTDOWN ： 關閉系統(tǒng) 請看下面實例 ： 下面是一個按鈕的單擊事件： procedure (Sender: TObject)。 begin case of //重新啟動 0: Win32Check(ExitWindowsEx(EWX_REBOOT,0))。 //關閉系統(tǒng) 1: Win32Check(ExitWindowsEx(EWX_SHUTDOWN,0))。 //注銷并重新登錄 2: Win32Check(ExitWindowsEx(EWX_LOGOFF,0))。 end。 end。 小結 本章重點介紹了一個完整的應用程序系結構，詳細講解了 Application和 Screen對象在開發(fā)應用程序時的重要應用，及一些常用的開發(fā)技術。
電大資料相關推薦
鄂ICP備17016276號-1