Time of Update: 2018-12-07
@echo offecho 正在清除系統垃圾檔案,請稍等......del /f /s /q %systemdrive%\*.tmpdel /f /s /q %systemdrive%\*._mpdel /f /s /q %systemdrive%\*.logdel /f /s /q %systemdrive%\*.giddel /f /s /q %systemdrive%\*.chkdel /f /s /q %systemdrive%\*.olddel /f /s /q
Time of Update: 2018-12-07
看到各位安裝PatchSet 9206的過程不完整,主要是安裝完畢後沒有升級資料庫,忍不住把我的經驗寫出來,希望能給大家一點協助。水平有限,難免有錯誤或遺漏,請諒解我使用這個辦法升級成功,資料庫運行正常。但當我想把資料庫降回9.2.0.1的時候,卻出了問題,參見我的文章:http://www.cnoug.org/viewthread.php?tid=80133。期待高人解答我的疑惑。。。Oracle
Time of Update: 2018-12-07
編寫ArcGIS程式時經常遇到向Toolbar中添加諸如TextBox等組件的需求,本文介紹向ArcGIS Toolbar添加任意windows組件的方法。新寫一個類CommandCustomControl,該類實現ICommand介面和IToolControl介面,在引用CommandCustomControl表單中添加一個windows組件,比如Label、textbox、combobox,然後傳入CommandCustomControl中。調用方法如下: Dim pText As
Time of Update: 2018-12-07
使用ASP.NET+ArcGIS Server開發需要本地IIS的配合.可以通過"開啟或關閉 Windows 功能"選中IIS相關的服務即可. 今天安裝ArcGIS Server時,提示需要IIS的支援,於是通過"開啟或關閉 Windows 功能"去尋找IIS功能,結果,掃描一片空白. Google 之,發現原來是安裝了ArcGIS 之後對註冊空間進行了限制,將它更改過來就可以了,解決辦法:1. 開始->運行,輸入regedit,開啟註冊表;2.
Time of Update: 2018-12-07
進入http://nodejs.org/#download下載msi檔案。一直點next安裝。最後檔案會自動安裝在C:\Program Files\nodejs目錄下。安裝完成後,會自動設定環境環境變數。如果沒有自動設定,自己手動在path處加上 ;C:\Program Files\nodejs\。安裝完成後,需要配置npm來管理node.js的模組。在window下安裝npm需要安裝git。具體安裝方法自己上網查下。特別多。安裝完後,開啟gitbush。輸入:git config
Time of Update: 2018-12-07
函數簡介auxGetDevCaps查詢指定的輔助輸出裝置以確定其效能auxGetNumDevs檢取系統中存在的輔助輸出裝置的數量auxGetVolume返回指定的輔助輸出裝置的當前卷裝置auxOutMessage向指定的輔助輸出裝置發送一條訊息auxSetVolume在指定的輔助輸出裝置中設定卷CloseDirver關閉指定的可安裝磁碟機DefDriverProc為任何不由可安裝磁碟機處理的訊息提供的預設處理Drivercallback調用一個回呼函數,發送一條訊息給視窗或將一個線程的阻塞解除D
Time of Update: 2018-12-07
Windows 資料類型 Delphi
Time of Update: 2018-12-07
本例:program Project1;uses Windows, Messages;{供 WM_SIZE 訊息調用的自訂過程}procedure OnSize(h: HWND);var Rect: TRect; pt: TPoint; buf: array[0..255] of Char;begin GetWindowRect(h, Rect); {擷取視窗矩形} pt.X := Rect.Right - Rect.Left; {
Time of Update: 2018-12-07
根據前面的理論, 一個視窗產生的架構應該是這個樣子:program Project1;uses Windows; {前面提到的函數都來自 Windows 單元}var hWnd : THandle; {聲明視窗控制代碼} MyWndClass: TWndClass; {聲明一個視窗類別型}begin //在這裡設定 MyWndClass 的參數(譬如視窗表徵圖、游標和畫刷等等), 包括指定 "類名" {然後註冊}
Time of Update: 2018-12-07
本例:點擊任一個功能表項目, 都會發出一個 WM_COMMAND 訊息, 訊息的 wParam 參數的低兩位就是標識功能表項目的那個整數!本例使用的資源檔(TestRes.rc):#define IDM_New 101#define IDM_Open 102#define IDM_Save 103#define IDM_Exit 104#define IDM_Cut 201#define IDM_Copy 202#define IDM_Paste 203#define
Time of Update: 2018-12-07
現在需要複習一下系統與視窗的訊息機制:一個程式會有一個或多個線程, 系統有一個線程隊列(就是個鏈表)管理所有這些線程, 並為每個線程建立一個訊息佇列.當訊息產生時(譬如點擊了視窗), 系統會把該訊息放到視窗所在的訊息佇列, 等待視窗處理.視窗應該時刻待命, 準備從所在的線程隊列中取出訊息並處理! 從訊息佇列中取出訊息, 一般用 GetMessage 函數; 要隨時取出訊息, 需要用個迴圈, 譬如:while(GetMessage(Msg, 0, 0, 0)) dobegin
Time of Update: 2018-12-07
本例:本例在表單建立時, 動態添加了三個菜單; 並賦予它們自我刪除的功能.本例使用的資源檔(TestRes.rc):MyMenu1 MENUEXBEGIN POPUP "&File" BEGIN MENUITEM "E&xit" ,101 ENDEND本例代碼檔案:program Project1;{$R 'TestRes.res' 'TestRes.rc'}uses Windows, Messages;const IDM_1 = 1;
Time of Update: 2018-12-07
根據前面的介紹, 可以完成一個視窗的建立了:program Project1;uses Windows, Messages;{視窗回呼函數, 必須聲明在使用它的程式前面}function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;begin Result := 0; if msg = WM_DESTROY then {當視窗銷毀時}
Time of Update: 2018-12-07
本例:本例在資源檔中備有兩組菜單, 程式實現運行時切換.本例使用的資源檔(TestRes.rc):MyMenu1 MENUEXBEGIN MENUITEM "Open" ,101 MENUITEM "Edit" ,102 MENUITEM "Help" ,103 MENUITEM "Chinese" ,104 ,MFT_RIGHTJUSTIFYENDMyMenu2 MENUEXBEGIN MENUITEM "開啟" ,201 MENUITEM "編輯"
Time of Update: 2018-12-07
program Project1;uses Windows, Messages;{回呼函數; 其中要處理的訊息很多, 最好用 case 語句}function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;begin Result := 0; case msg of WM_DESTROY: PostQuitMessage(0); {收到 WM_DESTROY 後,
Time of Update: 2018-12-07
本例:本例使用的資源檔(TestRes.rc):MyMenu1 MENUEXBEGIN MENUITEM "Open" ,101 MENUITEM "Old" ,102 MENUITEM "Help" ,103END本例代碼檔案:program Project1;{$R 'TestRes.res' 'TestRes.rc'}uses Windows, Messages;const IDM_New = 202; {常量將作為修改後的菜單的標識}{收到 WM_COMMAND
Time of Update: 2018-12-07
本次我把產生視窗的過程做了簡化, 以凸現新注入的代碼; 本例:program Project1;uses Windows, Messages;function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;begin Result := 0; case msg of WM_CREATE : MessageBeep(48); {在收到 WM_CREATE
Time of Update: 2018-12-07
本例:program Project1;uses Windows, Messages;{供 WM_PAINT 訊息調用的自訂過程}procedure OnPaint(h: HWND);const str = 'CodeGear Delphi 2007';var DC: HDC; ps: PAINTSTRUCT; Rect: TRect;begin MessageBeep(0); DC := BeginPaint(h, ps); GetClientRect(h, Rect);
Time of Update: 2018-12-07
本例:program Project1;uses Windows, Messages;{供 WM_CLOSE 訊息調用的自訂過程}procedure OnClose(h: HWND);begin if IDOK = MessageBox(h, '確認關閉嗎?', '提示', MB_OKCANCEL) then DestroyWindow(h);end;function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam:
Time of Update: 2018-12-07
本例:program Project1;uses Windows, Messages;{供 WM_LBUTTONDOWN 訊息調用的自訂過程}procedure OnLButtonDown(h: HWND);var BrushHandle: HBRUSH; Rect: TRect;begin GetClientRect(h, Rect); {擷取客戶區矩形} BrushHandle := CreateSolidBrush(RGB(255,