其他

現在用到要取得月中的最後一天,在 sql 中用 2007-02-30 這個日期試了一下,出錯了,所以必須用有效日期,以下的代碼是實驗用到的 procedure TForm1.Button1Click(Sender: TObject);var  fisc:string;  ss : string;  m1,m2:Tdatetime;  nextMonth:tdatetime;  curMonth:tdatetime;  maxDay:string;  m,y:dword; 

學 delphiX ,但不知DXDraw.ColorTable := ImageList.Items.ColorTable;  DXDraw.DefColorTable := ImageList.Items.ColorTable; 

可能很多朋友曾經遇到過這樣的問題：DelphiX在全螢幕模式下Alt+Tab切換出來後，再回到原來的視窗時，頁面變成一片空白。這對遊戲玩家來說是難以忍受的。    火人專門為此搜尋了不少資料，發現DelphiX一直存在這樣的問題，但大都用屏蔽ALT+TAB來解決，估計這是DELPHIX的一個小BUG。    但火人不太喜歡用這種比較“霸道”的方式解決，這會給使用者帶來相當的不方便。經多次測試，火人發現了產生這類問題的條件和避免出現這類問題的方法(但不能說徹底解決，因時間有限，無法解釋原因，希望高

從 csdn 上找到的原檔案地址:http://topic.csdn.net/t/20021224/14/1295059.html------------------------知道一個進程的ID/HANDLE/FileName,怎麼取得它在記憶體中的映像檔案地址？！樓主FIGLAB（無花果）2002-12-24 14:04:54 在 VC/MFC / 進程/線程/DLL 提問知道一個進程的ID/HANDLE/FileName,怎麼取得它在記憶體中的映像檔案地址？！像     IMAGE_NT_

 事件的簡單解釋:(來自於MSDN)事件是對象發送的訊息，以發訊號通知操作的發生。操作可能是由使用者互動（例如按一下滑鼠）引起的，也可能是由某些其他的程式邏輯觸發的。引發（觸發）事件的對象叫做事件發送方。捕獲事件並對其作出響應的對象叫做事件接收方。在事件通訊中，事件發送方類不知道哪個對象或方法將接收到（處理）它引發的事件。所需要的是在源和接收方之間存在一個媒介（或類似指標的機制）。.NET Framework

Custom Menus, Text, Lines / Delphi 4, 5自訂菜單,文本,線/ Delphi 4, 5Fancy Menus, etc. 奇異菜單,等等Custom Menus, Rotated Text, and Special Lines 自訂菜單,旋轉文本,和特殊的線條Before Delphi 4, it was difficult to customize a menu (add a bitmap, change a font, etc.), because

把功能表項目都存在一個資料表裡，這個資料表可以有無限級,通過讀這個資料表來建立 Treeview 的節點同時包括對節點的增刪改表結構  create table HRDict(   id                int identity(1,1),           ModuleName        char(12),   ParentId          int 為 -1 則代表是根  ) //--------------------------------------------

第三章

看完了基礎知識，下面就實踐以下吧本執行個體應用了MS的MSXML2_TLB，請自行尋找下載//用於讀寫XML的最簡單的單元unit XMLPurserUnit;interfaceuses  SysUtils, Classes, Windows, ActiveX, MSXML2_TLB;type  //本例子通過DOM方式示範XML檔案的讀寫過程  TDOMXMLpurser=class  public    {

花了兩個晚上做了一個 dll  ,用於程式註冊的地址在 zzaiss.ik8.com/soft/Register.rar註冊機 zzaiss.ik8.com/soft/getRegSN.rar註冊時，對於申請到的序號，只複製裡面的日期和時間就行了，其它的不要，把複製的日期時間考到註冊機的輸入申請到的註冊號的文字框裡，點到註冊碼就行了 該 dll 的匯出函數名為:function  checkReg(handle:THandle;var Days:integer):integer;stdcall;

       之前說到中介層通過向用戶端暴露方法的方式提供服務，實現資料庫資料的讀取和更新。方法調用的方式，其潛在的意義，就是說中介層不儲存用戶端狀態資訊，就像WEB服務一樣，用戶端需要自己儲存自己的狀態資訊。進一步說，就是中介層具體提供方法的業務對象執行個體，不是也不應該專屬於某個用戶端，它應該能夠為不同的用戶端調用提供服務。如果我們把業務對象執行個體放到對象池中集中存放，調用方法時隨用隨取，方法結束即放回池中。這樣就可以實現業務對象執行個體服務於不同的用戶端調用請求。更重要的是，利用對象池，

需要把資料匯出到 Excel 中學會錄製宏，協助很大{  儲存成 excel  }procedure TFormPayBank.FSaveExcel(ds:TDataSet;haveWidth:boolean);var  ExcelApp: Variant;  r,c:integer;    // row column  rc:integer;begin  //r := 1;  //c := 1;  screen.Cursor := crHourGlass;  self.Caption := '

2011 1.3以前的版本處理方法 [來自網路]方法:在dll表單中加入skincontrol控制項,然後uses ..., dxGDIPlusAPI,然後在表單代碼檔案的後面加入下列代碼initialization  dxInitializeGDIPlus;finalization  dxFinalizeGDIPlus;---------------------------------------------------------------------------- 2011 1.3

firebug監控運算式Firebug=FirebugWindowTitle=Firebug -

 下面這段程式是我從網上找到的,有幾處不明白的地方，請教一下 function KeyboardHookHandler(iCode : Integer;WParam : WPARAM;lParam :LPARAM) : LRESULT ;stdcall ; export; const   _KeyPressMask = $80000000 ;   {   這裡是定義了一個常量，我看了看，主要是看最高位，進面得到鍵是按下還是彈起 } begin 　Result :=0;   if iCode

C# 程式員參考 傳回值Main 方法可以是 void 類型：static void Main() {}它還可以返回 int：static int Main() { return 0;}樣本在此樣本中，程式包含兩個類 Factorial 和 MainClass。駐留在 MainClass 類中的 Main 方法用於從鍵盤讀取數字，從 Factorial 類調用 Fac 方法，以及計算並顯示輸入數位階乘。// cs_main.csusing System; public class

日常工作和生活中我們經常使用電子記事本尋找個人通訊錄資訊，或在單位的應用程式中查詢客戶檔案或業務資料，這個過程中往往需要輸入大量的漢字資訊，對於熟悉電腦的人這已經是一件頭疼的事，那些不太熟悉電腦或根本不懂漢字輸入的使用者簡直就望而生畏。作為對資料檢索技術的一種新的嘗試，作者探索使用漢字拼音的首字元序列作為檢索關鍵字，這樣，使用者不必使用漢字，只須簡單地鍵入要查詢資訊的每個漢字的拼音首字元即可。比如你想尋找關鍵字“中國人民銀行”，你只需要輸入“zgrmyh”。作者希望通過下面的例子，為廣大電腦同行

sp_addlinkedserver建立一個連結的伺服器，使其允許對分布式的、針對 OLE DB 資料來源的異類查詢進行訪問。在使用 sp_addlinkedserver 建立連結的伺服器之後，此伺服器就可以執行分散式查詢。如果連結的伺服器定義為 Microsoft? SQL Server?，則可執行遠端預存程序。文法sp_addlinkedserver [ @server = ] 'server'    [ , [ @srvproduct = ] 'product_name' ]    [ ,

   摘 要：主要論述了如何運用Delphi編程實現自動釋放、自動獲得本地系統所有動態IP地址，以及在Delphi中如何使用Netsh.exe公用程式更改網路設定資訊，並給出了相應的樣本程式。    關鍵詞：Delphi,IP地址,Netsh 一、 引言        隨著Internet的普及，網路安全問題日益突出，根據國家有關部門的政策，在大多數安全程度要求高的機關單位都建立了物理隔離的內、外網路。在這種環境下，各工作站需在不同網段的內、外網之間頻繁切換，這就要求工作站系統的網路設定需要及時

把金額轉為大小的代碼  {  該代碼摘自大富翁:  呂雪松的   有改動 }  function ToDaxie(Money : double) : string;  var    XiaoXie,DaXie : String;    DaXie1:array [0..9] of string;    Buf,TmpBuf : string;    I : integer;    P : integer;    MM : string;  begin    XiaoXie := '0123456