原创 Delphi中進行延時的4種方法
1、掛起，不佔CPUsleep2、不掛起,佔cpuprocedure Delay(msecs:integer);varFirstTickCount:longint;beginFirstTickCount:=GetTickCount;re
2020-06-24 08:50:22
3
原创 不使用API讀取ini
uses inifiles; procedure TForm1.FormCreate(Sender: TObject); var ini: T
2020-06-24 08:50:21
1
原创 多線程idhttp下載文件源代碼
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Cl
2020-06-24 08:50:21
9
原创 VB 使用API讀寫INI
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
2020-06-24 08:50:21
1
原创 VB讓程序啓動時自動改名
Private Sub Form_Load() '產生隨機碼 Dim ranNuma As Long Randomize ranNuma = Int(124435894 * Rnd) + 1985031
2020-06-24 08:50:21
原创 註冊全局熱鍵應用例子
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCt
2020-02-22 13:39:05
原创 獲取網卡、硬盤、CPU硬件信息
//---------------------------------------------------------------------------// HardwareInfo.pas
2020-02-22 13:39:05
1
原创 Delphi編譯錯誤代碼翻譯表
; not allowed before ELSE ElSE前不允許有“;” <clause> clause not allowed in OLE
2020-02-22 13:39:05
原创 Windows 使用的256個虛擬鍵碼 VB鍵盤常量大全
Public Const VK_LBUTTON = &H1Public Const VK_RBUTTON = &H2Public Const VK_CANCEL = &H3Public Const VK_MBUTTON = &H4Publ
2020-02-22 13:39:05
原创 delphi 使用API返回網頁信息
uses WinInet function GetIp(Url: PChar): string; //向網頁提交GET信息函數 var ErrCode: string; hInternets, hInternetFiles
2020-02-22 13:39:05
4
原创 SetWindowPos 參數介紹
//聲明:SetWindowPos(hWnd: HWND; {窗口句柄}hWndInsertAfter: HWND; {窗口的
2020-02-22 13:39:05
原创 GetWindowText - 獲取窗口標題
//聲明:GetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar; {接收文本
2020-02-22 13:39:05
6
原创 PB HOOKAPI函數
Function HookAPI(ByRef module As Asciiz, ByRef api As Asciiz, ByVal lpcallbackFunc As Dword,ByRef nextHook As Dword,O
2020-02-22 13:39:05
11
原创 VB 使用API實現INET功能
Public Declare Function InternetOpen Lib "Wininet.dll" Alias "InternetOp
2020-02-22 13:39:05
原创 API讀寫ini文件
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Clas
2020-02-22 13:39:05