摘要: div随滚动条的滚动而不断滚动//脚本实现滚动//filter:Alpha(opacity=40) 设置透明度 阅读全文
posted @ 2013-01-06 16:02 骑着骆驼逛沙漠 阅读(239) 评论(0) 推荐(0) 编辑
摘要: declare @T1 Intselect @T1=Pm_PListID from PmLists where Pm_ListID=684while exists(select 1 from PmLists where Pm_listid=@T1 and Pm_PListID>0) begin se... 阅读全文
posted @ 2013-01-06 16:01 骑着骆驼逛沙漠 阅读(165) 评论(0) 推荐(0) 编辑
摘要: 所有者的 denyreader denywrite 钩去掉配置服务器失败:可能与计算机名称有特殊字符有关,最好都改为大写 阅读全文
posted @ 2013-01-06 16:00 骑着骆驼逛沙漠 阅读(112) 评论(0) 推荐(0) 编辑
摘要: select CONVERT(varchar, getdate(), 120 ) 2004-09-12 11:06:08 select replace(replace(replace(CONVERT(varchar, getdate(), 120 ),\'-\',\'\'),\' \',\'\'),... 阅读全文
posted @ 2013-01-06 15:59 骑着骆驼逛沙漠 阅读(116) 评论(0) 推荐(0) 编辑
摘要: 在运行里输入regedit进入注册表,修改HKEY_LOCAL_MACHINE——SYSTEM——CurrentControlSet——Control——Session Manager删除Pending File..... 阅读全文
posted @ 2013-01-06 15:59 骑着骆驼逛沙漠 阅读(165) 评论(0) 推荐(0) 编辑
摘要: 也就是定向冒泡排序, 鸡尾酒搅拌排序, 搅拌排序 (也可以视作选择排序的一种变形), 涟漪排序, 来回排序 or 快乐小时排序, 是冒泡排序的一种变形。此演算法与冒泡排序的不同处在于排序时是以双向在序列中进行排序。使用鸡尾酒排序为一列数字进行排序的过程可以通过右图形象的展示出来: 数组中的数字本是无... 阅读全文
posted @ 2013-01-06 15:58 骑着骆驼逛沙漠 阅读(233) 评论(0) 推荐(0) 编辑
摘要: type TCPUID = array[1..4] of Longint;function GetCPUID : TCPUID; assembler; register;asm PUSH EBX PUSH EDI MOV EDI,EAX MOV EAX,1 DW $A20F STOSD MOV ... 阅读全文
posted @ 2013-01-06 15:57 骑着骆驼逛沙漠 阅读(314) 评论(0) 推荐(0) 编辑
摘要: procedure TFormBase.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);var i: SmallInt;begin if Msg.message = WM_MOUSEWHEEL then begin M... 阅读全文
posted @ 2013-01-06 15:56 骑着骆驼逛沙漠 阅读(125) 评论(0) 推荐(0) 编辑
摘要: 用Delphi制作DLL的方法 一 Dll的制作一般步骤 二 参数传递 三 DLL的初始化和退出清理[如果需要初始化和退出清理] 四 全局变量的使用 五 调用静态载入 六 调用动态载入 七 在DLL建立一个TForM 八 在DLL中建立一个TMDIChildForM 九 示例: 十 Delphi制作... 阅读全文
posted @ 2013-01-06 15:55 骑着骆驼逛沙漠 阅读(199) 评论(0) 推荐(0) 编辑
摘要: 表明是使用标准调用方式: 所有参数用栈传递; 参数按从左到右的顺序压栈; 被调用者负责参数的出栈。 主要用于调用API函数或编写供其它程序调用的函数(有些语言只支持这种调用方式,如VB和标准PASCAL)。 阅读全文
posted @ 2013-01-06 15:54 骑着骆驼逛沙漠 阅读(108) 评论(0) 推荐(0) 编辑
摘要: Memo1.Lines.Add(WebBrowser1.OleObject.Document.getElementByID('aa').innerText); 阅读全文
posted @ 2013-01-06 15:53 骑着骆驼逛沙漠 阅读(420) 评论(0) 推荐(0) 编辑
摘要: procedure TfrmMain.RestoreDataBase;var CmdStr, Paths:String;begin Paths:=Extractfilepath(Application.ExeName); if fileexists(ConCat(Paths,'数据库文件名称')) ... 阅读全文
posted @ 2013-01-06 15:53 骑着骆驼逛沙漠 阅读(169) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.Button1Click(Sender: TObject);var i,DriveType:Integer; c:String; buf:array[0..MAX_PATH] of char; sno,fileflag,maxl:DWORD; volname,fil... 阅读全文
posted @ 2013-01-06 15:51 骑着骆驼逛沙漠 阅读(101) 评论(0) 推荐(0) 编辑
摘要: procedure FindFile(const filespec: TFileName;extname:String;list:TStringList;sub:boolean); procedure RFindFile(const folder: TFileName;extname:String)... 阅读全文
posted @ 2013-01-06 15:50 骑着骆驼逛沙漠 阅读(127) 评论(0) 推荐(0) 编辑
摘要: unit Base24Unt;{Base24 算法}interfaceuses Windows,Sysutils,Dialogs;const EncodeTable: array[0..23] of Char ='BCDFGHJKMPQRTVWXY2346789' ; DecodeTable: ar... 阅读全文
posted @ 2013-01-06 15:50 骑着骆驼逛沙漠 阅读(1700) 评论(0) 推荐(0) 编辑
摘要: unit CRC32;interfaceuses Windows, SysUtils;const //Crc32表 Table:Array[0..255] of DWORD= ( $00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706A... 阅读全文
posted @ 2013-01-06 15:49 骑着骆驼逛沙漠 阅读(164) 评论(0) 推荐(0) 编辑
摘要: procedure TfrmRecordQuery.lvRecordInfoCustomDrawItem( Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);var... 阅读全文
posted @ 2013-01-06 15:48 骑着骆驼逛沙漠 阅读(143) 评论(0) 推荐(0) 编辑
摘要: function RegisterOleFile (strOleFileName : STRING; OleAction : Byte ) : BOOLEAN;const RegisterOle = 1;//注册 UnRegisterOle = 0;//卸载type TOleRegisterFunc... 阅读全文
posted @ 2013-01-06 15:47 骑着骆驼逛沙漠 阅读(176) 评论(0) 推荐(0) 编辑
摘要: JAVA_HOME=D:\Program Files\Java\jdk1.5.0Path=%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%JAVA_HOME%\binCLASSPATH=.;%JAVA_HOME%\lib\... 阅读全文
posted @ 2013-01-06 15:46 骑着骆驼逛沙漠 阅读(78) 评论(0) 推荐(0) 编辑
摘要: import java.io.BufferedReader; import java.io.IOException; import java.io.InputStreamReader; public class MyEclipseGen { private static final String L... 阅读全文
posted @ 2013-01-06 15:45 骑着骆驼逛沙漠 阅读(144) 评论(0) 推荐(0) 编辑