Delphi
文章平均质量分 62
flashrhx2007
天天想学习就是进步太慢
展开
-
Delphi编译错误代码翻译表
; not allowed before ELSE ElSE前不允许有“;” clause not allowed in OLE automation section 在OLE自动区段不允许“”子句 is not a type identifier 不是类型标识符 not previously declared as a PROPERTY 前面没有说明PROPERTY GOTO lead转载 2008-08-23 23:26:00 · 1327 阅读 · 0 评论 -
Delphi 获取Mac地址
function MacAddress: string;var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID;begin Result := ; Lib := LoadLibrary(rpcrt4.dll); if Li转载 2008-09-03 18:20:00 · 570 阅读 · 0 评论 -
Listview中行之间的上下移动
procedure TForm1.N5Click(Sender: TObject); var idex: Integer; TmpList1, TmpList2, TmpupList: TListItem; begin TmpList1 := lv2.Selected; if TmpLis转载 2008-10-08 11:15:00 · 612 阅读 · 0 评论 -
Delphi 托盘类
托盘区就是在windows的状态栏下方显示时钟、输入法状态的地方,要把你的程序显示在托盘区:下面是一个托盘类,只要把下面粘贴到文本文件中,改成TrayIcon.pas,使用时uses TrayIcon就可以了。先声明一个全局变量:var tray:TTrayNotifyIcon;然后在窗体的OnCreate事件中:tray:=TTrayNotifyIcon.Create(self);//将窗体创建转载 2008-10-08 16:58:00 · 510 阅读 · 0 评论 -
Delphi 2种排序方法
比较第一个字串的最小值,然后取出第二字串中相应的一组 方法一;function GetMinValue(s1,s2:string):string; varss1,ss2:TStringList;MinIndex:integer;i:integer;beginss1:=TStringList.Create; ss2:=TStringList.Create;ss1.Delimiter:=原创 2008-10-09 22:25:00 · 1529 阅读 · 0 评论 -
Delphi Debug权限提升
procedure SetPrivilege;varOldTokenPrivileges, TokenPrivileges: TTokenPrivileges;ReturnLength: dword;hToken: THandle;Luid: int64;beginOpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken转载 2008-11-18 15:30:00 · 1820 阅读 · 0 评论 -
Delphi SendKeys.Pas
unit sndkey32;interfaceUses SysUtils, Windows, Messages;Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean;function AppActivate(WindowName : PChar) : boolean;{Bu转载 2008-11-21 17:31:00 · 3042 阅读 · 0 评论 -
一个可以清理程序内存的代码(不错)
if Win32Platform = VER_PLATFORM_WIN32_NT thenbeginSetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);application.ProcessMessages;end;转载 2009-02-23 22:47:00 · 1652 阅读 · 0 评论 -
Delphi中的线程类
Delphi中的线程类Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部,我写此文的目的在于对此作一个补充。线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程,即所谓的主线转载 2009-02-23 22:47:00 · 455 阅读 · 0 评论 -
Delphi 枚举系统进程以及模块文件名
uses Tlhelp32;procedure SetPrivilege;//DEBUG提权 varOldTokenPrivileges, TokenPrivileges: TTokenPrivileges;ReturnLength: dword;hToken: THandle;Luid: int64;beginOpenProcessToken(Ge转载 2008-12-13 15:07:00 · 1813 阅读 · 0 评论 -
计算程序运行时间 毫秒
var StartTime,EndTime:integer; begin StartTime:=GetTickCount; // EndTime:=GetTickCount; showmessage(用时+floattostr((EndTime-StartTime)/1000.0)+秒); en原创 2009-03-04 14:00:00 · 1170 阅读 · 1 评论 -
让子窗口跟这主窗口移动
procedure WMWindowPosChanged(var Msg: TWMWindowPosChanged); message WM_WindowPosChanged;const uFlag = SWP_NOACTIVATE or SWP_NOZORDER or SWP_NOMOVE or SWP_NOSIZE;procedure TForm转载 2010-01-29 14:27:00 · 1060 阅读 · 0 评论 -
Delphi部份函数,命令,属性中文说明
Abort 函数 引起放弃的意外处理 Abs 函数 绝对值函数 AddExitProc 函数 将一过程添加到运行时库的结束过程表中 Addr 函数 返回指定对象的地址 AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列 Align 属性 使控件位于窗口某部分 Alignment 属性 控件标签的文字位置 AllocMem 函数 在堆栈上分配给定大小的块 Allow转载 2008-08-31 22:06:00 · 591 阅读 · 0 评论 -
隐藏进程的unit HideProcess
unit HideProcess;interfacefunction MyHideProcess: Boolean;implementationusesWindows, SysUtils, Variants, Classes, AclAPI, accCtrl;typeNTSTATUS = LongInt;const//NT_SUC转载 2008-08-31 22:03:00 · 891 阅读 · 0 评论 -
注册全局热键应用例子
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Labe转载 2008-08-24 00:48:00 · 331 阅读 · 0 评论 -
API读写ini文件
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm) Memo1: TMemo; Button1:转载 2008-08-24 00:51:00 · 352 阅读 · 0 评论 -
不使用API读取ini
uses inifiles;procedure TForm1.FormCreate(Sender: TObject);varini: TIniFile;path,a,b,c,d: string; beginpath := ExtractFilePath(Application.Exename)+server.INI; 获取当前路径i转载 2008-08-24 01:07:00 · 340 阅读 · 0 评论 -
获取网卡、硬盘、CPU硬件信息
//---------------------------------------------------------------------------// HardwareInfo.pas // 获取网卡、硬盘、CPU硬件信息//-----------------------------------------------转载 2008-08-24 00:15:00 · 988 阅读 · 0 评论 -
delphi 使用API返回网页信息
uses WinInet function GetIp(Url: PChar): string; //向网页提交GET信息函数 var ErrCode: string; hInternets, hInternetFiles: HINTERNET; dwOut: DWORD; lpBuffer: array[0..4096] of Char;begin翻译 2008-08-24 13:03:00 · 750 阅读 · 0 评论 -
多线程idhttp下载文件源代码
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient, IdHT转载 2008-08-24 13:19:00 · 3000 阅读 · 0 评论 -
遍历groupbox1的所有控件,让edit和combobox为空
var i:integer;begin for i:=0 to GroupBox1.ControlCount-1 do begin if GroupBox1.Controls[i].ClassType=tedit then begin转载 2008-08-24 01:01:00 · 507 阅读 · 0 评论 -
Delphi中进行延时的4种方法
1、挂起,不占CPUsleep2、不挂起,占cpuprocedure Delay(msecs:integer);varFirstTickCount:longint;beginFirstTickCount:=GetTickCount;repeatApplication.ProcessMessages;until ((GetTickCount-FirstTickCount) >= Longint(转载 2008-08-28 15:09:00 · 827 阅读 · 0 评论 -
GetWindowText - 获取窗口标题
//声明:GetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar; {接收文本的缓冲区的指针} nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出,会被被截断}): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}转载 2008-08-28 15:21:00 · 3727 阅读 · 0 评论 -
delphi idhttp post应用
uses IdMultipartFormData;{ .... }procedure TForm1.Button1Click(Sender: TObject);var data: TIdMultiPartFormDataStream;begin data := TIdMultiPartFormDataStream.Create; try转载 2008-08-28 15:25:00 · 4142 阅读 · 0 评论 -
磁性窗口制作
private { Private declarations } procedure WMWINDOWPOSCHANGING(var msg:TWMWindowPosChanging);message WM_WINDOWPOSCHANGING;procedure TForm3.WMWINDOWPOSCHANGING(var msg: TWMWindowPosMsg);varwork转载 2010-01-29 14:24:00 · 520 阅读 · 0 评论