其他

一、利用系統預設的郵件收發器寄送電子郵件 Uses ..., ShellAPI; Var lpHwnd: HWND; lpOperation, lpFile, lpParameters, lpDirectory: String; Begin lpHwnd:= GetDesktopWindow(); lpOperation:= 'open'; lpFile:= 'mailto:' + 'Maple119@263

★ 關於firebird的最簡安裝程式製作（innosetup安裝程式）http://www.firebird.net.cn/forum_view.asp?forum_id=2&view_id=335★ FireBird.conf設定檔常用參數 http://www.firebird.net.cn/forum_view.asp?forum_id=2&view_id=61★ FireBird.conf設定檔常用參數二http://www.firebird.net.cn/forum_

需要個類似資源管理員的東西, 首先試了下 TDriveComboBox、TDirectoryListBox、TFileListBox, 嘿! Win31 時代的東西, 不是一般地醜.試了下 Vcl.Shell.ShellCtrls 下的 TShellComboBox、TShellTreeView、TShellListView, 非常滿意! 並且 TShellComboBox 也可以免掉了.unit Unit1;interfaceuses Winapi.Windows,

轉自:http://www.cnblogs.com/Bung/archive/2011/05/17/2048867.html//延遲函數：方法一procedure delay(msecs:integer);varTick: DWord; Event: THandle; beginEvent := CreateEvent(nil, False, False, nil); tryTick := GetTickCount + DWord(msecs); while (msecs > 0)

手頭的程式需要修改註冊表, 以讓當前程式成為某格式的預設開啟程式並關聯表徵圖; Vista 之後需要管理員權限才能操作註冊表, 很麻煩, 所以有了下面的嘗試.unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,

(原創 -- 作者：陸島工作室 E-mail: xotec@126.com)以前也曾經為 Delphi 中相對路徑與絕對路徑之間的轉換煩惱過。但時，用得少，也沒過多地去注意了。今天要寫一個小程式，又遇到了這個問題。就找資料吧，終於找到了最簡單，最直接的方式。現在把函數整理如下：需要引用

查尋方式缺點優點Locate會從資料來源中下載所有的資料，如果資料表中包含大量的資料，那麼執行效率會很緩慢，而且容易造成用戶端的當機查尋資料的執行效率保持穩定的結果，而不管要查尋的資料是否已經存在於結果資料集中，而且沒有其他的副作用使用CloneCursor如果欲查尋的資料不在結果資料集中，那麼仍然會下載資料表中所有的資料，而且表現的比直接使用Locate等方法還緩慢如果欲查尋的資料已經存在於結果資料集中，那麼它可以避免下載所有的資料，並且能夠快速地找到查尋的資料使用CloneCursor加SQ

就是給DIV樣式命名，CSS控制Div在網頁上的顯示效果，css樣式的調用有兩種，一是<div class="c"></div>，另一種是<div id="c"></div>，可在在CSS檔案裡定義CSS樣式時有兩種方法，一種是（.c{width:20px;height:20px;} ）另一種是（#c{width:20px;height:20px;}），當你調用以“ . ”開頭的樣式時就用<div class="d1">，調用以“ #

一、分頁寫法小例：select first 10 templateid,code,name from template ;select first 10 skip 10 templateid,code,name from template ;select * from shop rows 1 to 10; --firebird2.0支援這種寫法二、show　　show tables;   show table tablename;三、D:\firebird2\bin>isql -u

sp_dropserver [ @server = ] 'server'      [ , [ @droplogins = ] { 'droplogins' | NULL} ]參數[@server =] 'server'將被刪除的伺服器。server 的資料類型為 sysname，沒有預設值。server 必須已經存在。[@droplogins =] 'droplogins' | NULL指明如果指定了 droplogins，那麼對於 server，那些相關的遠程及連結的伺服器登入也將被刪除。@

動態方法和虛擬方法在delphi裡面分別表示：動態方法   當需要調用父類、祖先類的被覆蓋方法的時候，是尋找繼承樹，當找到，就調用。減少了VMT佔用，但調用慢一些。虛擬方法   和動態方法不同的是，記錄了被覆蓋的方法的指標。 lazarus的處理方式是統一成虛擬方法了。也就是說，lazarus裡面不存在真正的動態方法。以空間換時間，加快了程式執行速度。

給NT服務型程式加描述的方法，在網上找了找，好像只有通過用註冊表的方法比較方便與實用。自己整理了一下，帖出來共用。自己測試了一下，OK！procedure ServiceUpdateDescription(const ServiceName, Description: string);varreg: TRegistry;beginreg := TRegistry.Create;try    with reg do begin      RootKey := HKEY_LOCAL_MACHINE;

出處：互連網周刊 轉自: DELPHI

作者: 陸島工作室Variant 轉換成 Stream 的函數procedure VariantToStream (const v :olevariant; Stream : TMemoryStream); var   p : pointer; begin   Stream.Position := 0;   Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowBound(v, 1) + 1;   p := VarArrayLock (v); 

介紹幾個控制應用程式的代碼函數。安裝COM程式、卸載COM+應用程式、啟動/關閉COM+服務等。uses

作者:陸島工作室type  TExecState = (esNormal, esMinimized, esMaximized, esHidden); function ExecuteFileWait(Handle: HWND; const FileName, Params, StartDir: string; InitialState: TExecState): Integer;{Handle: 傳入當前視窗或 Applicaton 的控制代碼FileName: 需要傳入的檔案名稱Params:

恩恩……我不是要說王小雲。我很奇怪.Net提供的MD5CryptoServiceProvider。它的hash結果是16位位元組的……可是……可是……md3的標準不是32位的嗎？有沒有產生32 bytes的.net hash庫呢？然後，md5.ComputHash()的傳回值是Byte()，在轉換成為String的時候也是問題多多……偶嘗試使用如下的代碼：pass = md5.ComputeHash(data)temp = System.Text.Encoding.UTF8.GetString(

作者：陸島工作室一個示範如何取滑鼠所在位置下的控制項的類名的例子。該程式示範了如何通過滑鼠位置取得一個控制項，並得到所取控制項的類名的功能。代碼非常簡單，原理更簡單，1. 在表單上放一個時鐘控制項 TTimer, 在 TTimer.OnTimer 事件裡加入取類名的過程函數 DoGetClassName 2. DoGetClassName 函數主要實現即時用 GetCursorPos 取當前滑鼠的位置3. 再根據滑鼠位置，調用API函數 GetClassName

/**//*create table BookLibary([圖書館] varchar(10),     [科目] varchar(10),      [數量] int)insert into BookLibary                select     'A',         '語文',         5 union all select      'B',         '數學',         6 union all select     'C',         '英

因項目需要穿過HttpProxy 伺服器或只開通80連接埠的防火牆、路由器.1.類似Http-tunnel或socks2http的可以實現內網和外網的雙向資料傳送（不是內網迴圈查詢外網). 2.資料流能夠穿過HttpProxy 伺服器或只開通80連接埠的防火牆、路由器 3.外網有固定IP,伺服器能接受多個使用者串連， 內網支援動態IP，每台電腦可能有多個執行個體。 4.能支援Windows和Linux. 5.採用Delphi開發，封裝成組件,並提供原碼.