RSS Twitter QQ留言

Onlybird

Category Archives: 编程资料

DELPHI编程资料

坑爹的瑞星！解决Windows7无法找到脚本引擎Vbscript

← Continue Reading
今天突然老爸从公司带回1年前我组装的电脑让我修一下....起初以为是硬件问题,开机一看原来是windows7需要重新激活了...当初我都设置好半年自动运行一次kms服务器端来自动激活啊啊靠...怎么回事呢，然后发现到了运行slmgr.vbs的时候，竟然提示...无法找到脚本引擎Vbscript....我靠我从没见过这种问题啊..果断google之，然后搜到的答案都是没用的啊啊啊你妹！只能自己解决了...

NTDLL单元

← Continue Reading
unit ntdll; interface uses Windows; type PLARGE_INTEGER = ^LARGE_INTEGER; //------------------------------------------------------------- type NTSTATUS = Longint; const STATUS_SUCCESS           = NTST...

调用中断获取系统运行时间

← Continue Reading
1234function GetSysTime:dword; asm   int $2a //调用2a号中断获取系统从启动运行时间(毫秒) end; 123456789procedure TForm1.Button1Click(Sender: TObject); var   hours:dword;//小时   s...

列出当前系统运行的全部窗口

← Continue Reading
1234567891011function EnumWindowsFunc(Handle: THandle; List: TStringList):boolean; stdcall; var Caption: array[0..256] of Char; begin if GetWindowText(Handle, Caption, SizeOf(Caption)-...

杂⑦杂㈧

← Continue Reading
function   CanGetIECookie(const   URL:   string;   var   Cookie:   string):   boolean;    var    lpvBuffer:   array[0..1000]   of &nb...

取得系统特殊文件夹路径

← Continue Reading
12345678910function GetSpecialFolderDir(const folderid:integer):string; var    pidl:pItemIDList;    buffer:array [ 0..255 ] of char ; begin   ...

进程&模块相关函数

← Continue Reading
1234567891011121314151617181920function FindProcess(AFileName: string): boolean; var  hSnapshot: THandle;  lppe: TProcessEntry32;  Found: Boolean;  KillHandle: THandle; begin  ...

PcharToHex 用于把2进制(16进制)数据转换成HEX字符

← Continue Reading
1234567Function pCharToHex(Buf:pChar;Len:Integer):String; Var  I:Integer; Begin  For I := 0 To Len-1 Do    Result := Result+IntToHex(Ord(Buf[I]), 2)+' ...

取得系统的默认语言ID

← Continue Reading
function  GetSystemDefaultLangID: LANGID; 返回值可能有... 0x0000 Language Neutral 0x007f The language for the invariant locale (LOCALE_INVARIANT). See MAKELCID. 0x0400 Process or User Default Language...