原创 DBGrid中用光標鍵控制Cell
{////////////////////////// //// Grids549 //// //// 14:33 2005-2-1
2018-08-22 10:42:53
原创 Add CheckBox to TreeView
SetNodeChecked和IsNodeChecked是在網絡上copy的,出處很多,我也不知道誰是原創的,故不指明出處,僅指明轉載CheckTreeView是本人原創,因爲沒找到一個類似的函數,個人覺得這個函數用了Hack技巧,不是正
2018-08-22 10:42:52
1
原创 關於SQLDMO的使用
關於SQLDMO的使用2005-4-5 16:13:52lw549 sqldmo.dll是一個com,安裝SQLServer後位於Program Files/Microsoft SQL Server/80/Tools/Binn文件夾
2018-08-22 10:42:50
3
原创 得到ConnectionString中的特定信息
好久沒寫東西了,也沒什麼好寫的,只好拿一個小函數來充數:(type TConnInfo = record ServerName: String; UserName: String; PassWord: String;e
2018-08-22 10:42:49
原创 zt:時間協議（Time Protocol）
時間協議（Time Protocol）IT.com.cn(IT世界)2004-10-14 13:12:00 文/ 此協議提供了一個獨立於站點的，機器可讀的日期和時間信息。時間服務返回的是以秒數，是從1900年1月1日午夜到現在的秒數，
2018-08-22 10:42:49
1
原创 有時候，彙編比高級語言更易懂
檢查某一位是否爲1，如果用高級語言就麻煩得多function CheckBit(AByte:Byte; Pos: Byte): Boolean; Assembler;//76543210asm MOV C
2018-08-22 10:42:49
3
原创 遍歷菜單項
//遍歷任何窗體的MenuItem//用了兩個多小時//略做修改,就可以實現其他功能,GetMenuItemInfo提供的信息足夠用了procedure ExplorerMenuItem(MenuHandl
2018-08-22 10:42:49
1
原创 GetEIP
今天突然想到一個問題,想得到eip,於是有了下面的函數//程序原理參見任何一本彙編教程裏關於ret和call的解釋,本人表達能力有限,恕不獻醜 function GetEIP: Integer; asm pop eax p
2018-08-22 10:42:49
3
原创 如何在ToolBar中顯示文字和圖標,自定義圖標大小,並和MenuItem關聯
要注意以下幾個方面,先後順序未必正確,有可能多設幾次 1.設置ToolBar可以顯示文字ToolBar.ShowCaption := True;2.設置ToolButton大小ImageList.WidthImageList.Height
2018-08-22 10:42:49
原创 拷貝DBGrid當前行
procedure CopyCurrentDBLine(DBGrid: TDBGrid);var i: Integer; Line: String;begin for i := 0 to DBGrid
2018-08-22 10:42:49
原创 創建快捷方式到[啓動]
//根據zswang和"超級猛料"部分函數改編//比放到註冊表裏麻煩多了function GetSpecialFolderDir(const folderid:integer): String;var pidl: pItemIDList
2018-08-22 10:42:48
原创 取得字符串中指定子字符串出現第n次的位置,效率不高,勉強可用
function GetNSubStringPos(N: Integer; SubString,AString: String): Integer;//返回第n個SubString在AString中出現的位
2018-08-22 10:42:48
2
原创 忽然之間厭倦了
QQ每天都上只是隱身,羣裏的消息每天都看,兩個Blog、Csdn、Qunluo每天都巡視一下,只是沒有參與的慾望,論壇裏幾乎不回帖,QQ裏問什麼就回答什麼,而且暴簡單,除了自己感興趣的技術問題以外沒有說話的
2018-08-22 10:42:48
原创 防止sql注入的簡單方法
檢查輸入內容，如果包含敏感字符則刪除敏感字符敏感字符包括： '><=!-+*/()|;和空格然後再拼湊SQL語句如果先拼湊，再過濾，工作量就大了，而且副作用太多
2018-08-22 10:42:48
2
原创 [Warning] :Symbol 'CmdShow' is specific to a platform
{$WARN SYMBOL_PLATFORM OFF} winexec('NotePad', cmdShow); {$WARN SYMBOL_PLATFORM ON}實在沒什麼可寫的
2018-08-22 10:42:47
1