delphi文档
关注
分享
扫一扫
文章平均质量分 50
laoli
这个作者很懒，什么都没留下…
展开
-
怎样知道你的程序是运行在安全模式呢?
Use Windows API GetSystemMetrics with SM_CLEANBOOT parameter, this specifies how the system was started, in your project´s code use: program Project1; uses Forms, Windows, Dialogs, Unit1 in U原创 2001-10-05 14:01:00 · 1207 阅读 · 0 评论 -
自己动手编程破解系统的TCP连接数
先把过程写成单元,以便调用unit TcpIpPatcher;interfaceuses classes,WinSvc,sysutils; type HWND = type LongWord; DWORD = type LongWord; BOOL = type LongBool; LPCSTR = PAnsiChar; FARPROC = Pointer; PSecurity原创 2006-03-27 17:59:00 · 5761 阅读 · 3 评论 -
在TWebbrowser 中模拟点击一个图片提交按钮
原文我曾在大富翁我的笔记发表,没对外(发表日期:2003-6-29 4:18:00 ),今天略作改动.http://www.delphibbs.com/keylife/iblog_show.asp?xid=1316//-------------------------------------------------------------------------------------------原创 2005-07-04 11:48:00 · 1749 阅读 · 0 评论 -
怎样检测你的IE使用的代理服务器
//-----------------------------------------------//记得引用 WinInet 单元//-----------------------------------------------usesWinInet //----------------------------------------------//定义要使用的函数//-------------原创 2004-11-10 11:42:00 · 3185 阅读 · 0 评论 -
直接用WinSock API 发E-mail.
unit SMTP_Connections;//------------------------------------------//定义单元//---------------------------------------------interfaceuses Classes, StdCtrls;const WinSock = wsock32.dll; Internet = 2;原创 2004-11-10 11:22:00 · 1857 阅读 · 0 评论 -
创建并控制一个asp.net程序！(for delphi.net )
procedure Button1Click(Sender: System.Object; E: EventArgs); var MyConnection : OleDbConnection ; dbReader : OleDbDataReader; cmd : OleDbCommand; abc : str原创 2004-11-03 16:08:00 · 1276 阅读 · 0 评论 -
在TwebBrowser中调用隐藏的IE命令
//命令句柄ID,是来自Shell DocObject View这个类const ID_IE_FILE_PAGESETUP = 259;const ID_IE_FILE_PRINT = 260;const ID_IE_FILE_NEWWINDOW = 275;const ID_IE_FILE_PRINTPREVIEW原创 2004-11-04 12:17:00 · 1683 阅读 · 0 评论 -
在TWebbrowser 里加入html文本
uses MSHTML; procedure TForm1.Button1Click(Sender: TObject); begin Webbrowser1.Navigate(www.baidu.com); //启动一个网站的网页 end; procedure TForm1.Button2Click(Sender: TObject); var Range: IHTMLTxtRan原创 2004-09-30 12:23:00 · 1631 阅读 · 1 评论 -
把图标存储在SHELL32.DLL
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,shellapi,Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObje原创 2002-08-20 09:17:00 · 2684 阅读 · 0 评论 -
怎样知道我的程序是否运行在DELPHI?
function IsAppRunningInDelphi : boolean; var hKernelDll : THANDLE; proc_IsDebuggerPresent : TProcIsDebuggerPresent; useFindWindow : boolean; proc : FARPROC; begin useFindWindow := true; if原创 2001-10-05 14:16:00 · 1200 阅读 · 0 评论 -
怎样屏蔽掉开始按钮？
procedure TForm1.Button1Click(Sender: TObject); begin {Disable the start button} EnableWindow(FindWindowEx(FindWindow(Shell_TrayWnd, nil),0, Button, nil),false); end; procedure TForm1.Button2Click原创 2001-11-08 01:26:00 · 1539 阅读 · 0 评论 -
怎样修改windows里的开始按钮的位图？
/修改var Form1: TForm1; StartButton: hWnd; OldBitmap: THandle; NewImage: TPicture; / 将代码放入FormCreate事件procedure TForm1.FormCreate(Sender: TObject); begin NewImage := TPicture.create; NewImag原创 2001-10-08 02:43:00 · 1202 阅读 · 0 评论 -
杀死一个正在运行的程序
procedure KillProgram(Classname : string; WindowTitle : string); const PROCESS_TERMINATE = $0001; var ProcessHandle : THandle; ProcessID: Integer; TheWindow : HWND; begin TheWindow := FindWi原创 2001-10-05 14:05:00 · 1335 阅读 · 0 评论 -
3721是怎样修改我们的注册表的
这是我下载的3721的注册表文件：（大家看看它是怎样修改我们的注册表的）REGEDIT4[HKEY_CLASSES_ROOT/CLSID/{B83FC273-3522-4CC6-92EC-75CC86678DA4}]@=""[HKEY_CLASSES_ROOT/CLSID/{B83FC273-3522-4CC6-92EC-75CC86678DA4}/Control][HKEY_CL原创 2001-09-28 13:47:00 · 1491 阅读 · 0 评论 -
怎样屏蔽或打开windows里的快捷键
屏蔽var Dummy: Integer; begin SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0); SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0); end; 打开var Dummy: Integer; begin System原创 2001-11-01 01:11:00 · 2021 阅读 · 0 评论 -
如何TWebbrowser屏蔽热键Ctrl＋N来打开新窗口
如何屏蔽用热键Ctrl＋N来用新窗口来打开TWebbrowser里面的网页１．创建一个TApplicationEvents组件，在OnMessage的事件里面输入以下代码 // 检查，如果按下Ctrl＋N if (GetKeyState(VK_CONTROL) (Msg.wParam = Ord(N)) then begin //LINk for http:/原创 2006-02-28 03:24:00 · 1642 阅读 · 0 评论