fanybupt

日出而作，日入而息，凿井而饮，耕田而食，帝力于我何有哉？

导航

随笔分类 -  Delphi

获取其他进程命令行参数

摘要：function GetSysFuncAddr(AFunc: Pointer): Integer;begin asm mov eax, AFunc add eax, 2 mov eax, [eax] mov eax, [eax] mov Result, eax end;end; procedure GetRemoteCommandLine(ABuf: PChar;... 阅读全文

posted @ 2012-05-04 18:10 fanybupt 阅读(435) 评论(0) 推荐(0)

贴一个ToolTips（类似于Hint）

摘要：unit ToolTip;interfaceuses SysUtils, Classes, Graphics, Controls, Windows, CommCtrl;type TIconType = (titNONE, titINFO, titWARNING, titERROR, titINFOLARGE, titWARNINGLARGE, titERRORLARGE); TToo... 阅读全文

posted @ 2012-05-04 18:04 fanybupt 阅读(432) 评论(0) 推荐(0)

进程相关函数

摘要：function EnablePriv: Boolean;var hToken: THandle; tkpNew, tkpOld: TTokenPrivileges; dwLen: DWORD;begin Result := False; if (OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES, &hToke... 阅读全文

posted @ 2012-05-04 17:37 fanybupt 阅读(171) 评论(0) 推荐(0)

打开方式对话框

摘要：function OpenAs_RunDLL(const AWND1, AWND2: HWND; const AFilename: PChar;AShow: Integer = SW_SHOW):integer; stdcall; external 'shell32.dll ';也可使用ShellExecute，lpOperation 设置为‘OpenAS’，不过这个不太好使，需要保证对应... 阅读全文

posted @ 2012-05-04 17:32 fanybupt 阅读(195) 评论(0) 推荐(0)

查找局域网内的所有SQLServer服务器

摘要：//uses OleDB, ComObj, ActiveX, ADOConst,DB, ADODB, ADOInt,SysUtils;function CreateADOObject(const ClassID: TGUID): IUnknown;var Status: HResult; FPUControlWord: Word;begin asm FNSTCW FPUControlWord end; Status := CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IUnknown, R 阅读全文

posted @ 2012-05-04 16:40 fanybupt 阅读(584) 评论(0) 推荐(0)

函数结束时自动销毁的窗体

摘要：unit ProgressFrm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg;type IProgress = interface ['{7AE77698-5497-44CD-8925-A33077147FD4}'] end; TProgressForm = class(TForm) lblmsg: TLabel; imgWait: TImage; end; TMyProgres 阅读全文

posted @ 2012-05-04 16:33 fanybupt 阅读(225) 评论(0) 推荐(0)

Delphi版Everything函数

摘要：unit Everything;interfaceuses Windows; const EVERYTHING_OK= 0; EVERYTHING_ERROR_MEMORY=1; EVERYTHING_ERROR_IPC= 2; EVERYTHING_ERROR_REGISTERCLASSEX = 3; EVERYTHING_ERROR_CREATEWINDOW=4; EVERYTHING_ERROR_CREATETHREAD=5; EVERYTHING_ERROR_INVALIDINDEX= 6; EVERYTHING_ERROR_INVALIDCALL = 7; EverythingDLL 阅读全文

posted @ 2012-05-04 16:30 fanybupt 阅读(861) 评论(0) 推荐(0)