摘要： 1 只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组件就不能再使用了，当然有的作者给出了几种 阅读全文

摘要： 内容居中(属性) alignment->tacenter mome控件 禁用最大化(属性) 窗体-> BorderIcons属性-> biMaximize-> False 让鼠标无法改变窗体大小(属性) 窗体-> Constraints属性 ->MaxHeight和MinHeight->设置相同限制 阅读全文

摘要： 问题现象： 在D7的控件工具条中每次要手动点向左向右很累，有没有方法可以自动移动。 问题解决： REGEDIT4 [HKEY_CURRENT_USER\Software\Borland\Delphi\7.0\Extras] "AutoPaletteSelect"="1" "AutoPaletteSc 阅读全文

摘要： 1.16 TO 10 ******************************************************** 16转10，否则输出-1 function Hex(c: char): Integer;var x: Integer;begin if ( Ord(c)>= Ord 阅读全文

摘要： 问题现象： 查看oracle是否有表被锁 解决方法： select sid,serial#,program,terminal,username,b.object_id,c.object_name from v$session a, v$locked_object b, dba_objects c w 阅读全文

摘要： 定义 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 键盘上的每一个键都有两个唯一的数值进行标志。为什么要用两个数值而不是一个数值呢？这是因为一个键可以被按下，也可以被释放。当一个键按下时，它们产生一个唯一的数值，当一个键被释放时，它也会产生一个唯一的数值，我们把这些数值都保存在一张表 阅读全文

摘要： 远程开机再配合远程控制 procedure TForm1.Button2Click(Sender: TObject);var vBuf:array[0..101] of char; i,j:integer;begin //包的格式很简单，在以太网包的任何位置上， //以6个FF为先导，后面跟相应MA 阅读全文

摘要： 用MODEM拨号上网，仍是大多数个人网民选择上网的方式．如果能在我们的应用程序中启动拨号连接（如IE浏览器程序中的自动拨号功能），无疑将会方便我们的软件用户（不用再切换应用程序，运行拨号网络），提高我们的软件的友好性从而提高软件的竞争力． 在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的 阅读全文

摘要： 模拟键盘我们用Keybd_event这个api函数，模拟鼠标按键用mouse_event函数. Keybd_event函数能触发一个按键事件，也就是会产生一个WM_KEYDOWN或WM_KEYUP消息,一般用这两个消息来模拟一 次按键(按键的过程是:按下,然后弹起)，但是没有直接用这个函数方便。Ke 阅读全文

摘要： 远程控制篇：抓取远程屏幕图像 {抓屏幕图像，保存为内存流--BMP流,压缩BMP流,JPG流，以及使用流}{在网络中传送BMP流和JPG流的速度没测试过}{BMP流的压缩是无损压缩}{全局变量memoryStream:TMemoryStream;memoryStream:=TMemoryStream 阅读全文

摘要： 这里有种办法供你选择：1、打开注册表(regedit)，在HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer 下新增一个键值： 键值名称：NoSaveSettings 键值数据类型：DWORD 键 阅读全文

摘要： Delphi 调用netsh命令修改IP地址 先介绍一下Netsh命令的使用方法: 在这里跟大家介绍几个简单的指令 1.Show IP 1.1Cmd Mode 直接在cmd下面输入 netsh interface ip show address 亦可简写为 netsh int ip sh ad 看看 阅读全文

摘要： 监视进程并结束进程在很多地方都用到这里借前人的经验写了个小例子: 以QQ的进程qq.exe为例 关键代码如下: function CheckTask(ExeFileName: string): Boolean; const PROCESS_TERMINATE=$0001; var ContinueL 阅读全文

摘要： unit NetFunc; interface uses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants; //错误信息常量 const C_Err_GetLocalIp = '获取本地ip失败'; C_ 阅读全文

摘要： RenameFile,DeleteFile,MoveFile Delphi的移动文件方法 uses ShellApi;procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);var shellinf 阅读全文

摘要： 1 ShellApi CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’),nil);2. 删除 在程序运行过程中，单击“删除”按钮就可以将新创建的test子目录删除，响应代码如下： procedure TForm1.btnDelete 阅读全文

摘要： case 10004: error = "Interrupted system call 中断的系统呼叫"; break; case 10009: error = "Bad file number"; break; case 10013: error = "Permission denied 进入被 阅读全文

摘要： 获取用户当前的Windows临时文件夹function GetWinTempPath: string;varTempDir: array[0..255] of char;beginGetTempPath(255, @TempDir);Result := strPas(TempDir);end; 删除 阅读全文

摘要： function GetVersionString(FileName: string): string; var VerInfoSize: DWORD; VerInfo: Pointer; VerValueSize: DWORD; Dummy: DWORD; VerValue: PVSFixedFi 阅读全文

摘要： TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。 一、针对TTreeNodes,也就是 TreeView.Items,有这些属性： 1、count，节点个数。(节点总数) 2、item[index 阅读全文