摘要:
表明是使用标准调用方式: 所有参数用栈传递; 参数按从左到右的顺序压栈; 被调用者负责参数的出栈。 主要用于调用API函数或编写供其它程序调用的函数(有些语言只支持这种调用方式,如VB和标准PASCAL)。 阅读全文
摘要:
Memo1.Lines.Add(WebBrowser1.OleObject.Document.getElementByID('aa').innerText); 阅读全文
摘要:
procedure TfrmMain.RestoreDataBase;var CmdStr, Paths:String;begin Paths:=Extractfilepath(Application.ExeName); if fileexists(ConCat(Paths,'数据库文件名称')) ... 阅读全文
摘要:
procedure TForm1.Button1Click(Sender: TObject);var i,DriveType:Integer; c:String; buf:array[0..MAX_PATH] of char; sno,fileflag,maxl:DWORD; volname,fil... 阅读全文
摘要:
procedure FindFile(const filespec: TFileName;extname:String;list:TStringList;sub:boolean); procedure RFindFile(const folder: TFileName;extname:String)... 阅读全文
摘要:
unit Base24Unt;{Base24 算法}interfaceuses Windows,Sysutils,Dialogs;const EncodeTable: array[0..23] of Char ='BCDFGHJKMPQRTVWXY2346789' ; DecodeTable: ar... 阅读全文
摘要:
unit CRC32;interfaceuses Windows, SysUtils;const //Crc32表 Table:Array[0..255] of DWORD= ( $00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706A... 阅读全文
摘要:
procedure TfrmRecordQuery.lvRecordInfoCustomDrawItem( Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);var... 阅读全文
摘要:
function RegisterOleFile (strOleFileName : STRING; OleAction : Byte ) : BOOLEAN;const RegisterOle = 1;//注册 UnRegisterOle = 0;//卸载type TOleRegisterFunc... 阅读全文
摘要:
JAVA_HOME=D:\Program Files\Java\jdk1.5.0Path=%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%JAVA_HOME%\binCLASSPATH=.;%JAVA_HOME%\lib\... 阅读全文