- 博客(340)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 delphi utf8转码
uses HTTPApp;...procedure TForm1.Button2Click(Sender: TObject);begin Edit1.text:=HTTPEncode(UTF8Encode('明信片'));end;
2013-04-16 00:18:46
496
原创 delphi真正可以截获WINDOWS关机消息的源码
unit TesteandoEsta;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, WinTypes, WinProcs, Menus;typeTForm1 = class(TForm)private { Private declar...
2013-04-15 23:27:48
662
原创 delphi 非客户区右键点击
public { Public declarations } procedure WMNCLBUTTONDOWN(var msg: TMessage); message WM_NCRBUTTONDOWN;procedure TForm1.WMNCLBUTTONDOWN(var msg: TMessage);begin showmessage('右键点击了'); // close;e...
2013-04-09 21:35:59
329
原创 delphi 点击关闭按钮时隐藏窗口
在主窗体的CloseQuery事件里，使用messagebox进行提示，根据选择的按钮对Canclose进行设置就可以了如beginif messagebox(handle, '是否退出程序', '提示', MB_YESNO ) = IDNO thenCanclose := False;end;...
2013-04-08 23:08:00
849
原创 Delphi 窗体显示在最前面，并获得焦点
SetForegroundWindow(GetLastActivePopup(Self.Handle)); self.WindowState:=wsNormal; self.Show;
2013-04-08 17:49:45
1642
原创 解决 float point division by zero
//解决 float point division by zero在formcreate 中添加 Set8087CW(Default8087CW or $0004);
2013-04-06 17:36:33
6597
原创 Delphi实现程序只运行一次并激活已打开的程序
unit wdRunOnce;{******************************************* * brief: 让程序只运行一次 * autor: linzhenqun * date: 2005-12-28 * email: linzhengqun@163.com * blog: http://blog.youkuaiyun.com/linzhengqu...
2013-04-05 14:38:40
262
原创 inno setup 添加桌面快捷方式
Name: "{userdesktop}\{#MyAppName} 官方网站"; Filename: "http://www.mydomain.com/";IconFilename: "{app}\SoftLogo.ico"
2013-04-05 13:37:23
219
原创 inno setup 开机启动
方法1：不修改注册表有一种不写注册表的方法，其实就是将快捷方式添加到“启动”文件夹[Tasks]Name: "startupicon"; Description: "开机启动"; GroupDescription: "{cm:AdditionalIcons}"; OnlyBelowVersion: 0,6.1[Icons]Name: "{commonstartup}\{#M...
2013-04-05 11:00:53
723
原创 delphi idhttp post应用
delphi idhttp post应用 uses IdMultipartFormData;{ .... }procedure TForm1.Button1Click(Sender: TObject);var data: TIdMultiPartFormDataStream;begin data := TIdMultiPartFormDat...
2013-04-04 15:37:36
348
原创 内网穿透&UDP打洞
这两天找度度重新回忆了一下关于内网穿透的事情，在百度文库上找到了两三篇写的比较通俗易懂的文章，把内网穿透做个简单总结。 首先文章建议 Cone NAPT 还有希望，要是 Symmetri NAPT 就别想了，接着介绍了两种基本情况，一是一台内网机器连接外网通信的情况，二是两台内网之间互联的情况。 第一种，只需要内网主动发起连接就可以了。内网机器A（192.168.1.x:4000...
2013-04-04 13:55:31
987
原创 delphi 窗口显示在屏幕右下角
procedure TForm1.FormCreate(Sender: TObject);begin Top := Screen.WorkAreaHeight - Height; Left := Screen.WorkAreaWidth - Width;end;
2013-04-04 08:26:29
924
原创 delphi dll窗体的制作和调用
一.制作dll窗口1.添加 dll Project右键ProjectGroup1 -> Add New Project选择Delphi Projects->ActiveX->ActiveX Library 2.添加窗体到 dll Project右键Project1->Add New->VCL Form 3.向新建的窗体添加外部调用代...
2013-03-28 03:13:46
379
原创 delphi 调用exe文件
ShellExecute(handle, 'open','c:\Project1.exe','字串内容',nil, SW_SHOWNORMAL);
2013-03-28 01:00:58
300
原创 delphi bsNone 后显示边框
procedure CreateParams(var Params: TCreateParams); override;procedure TForm10.CreateParams(var Params: TCreateParams);begin inherited; with Params do begin style := style or WS_THICKFRAME; en...
2013-03-26 01:47:20
266
原创 delphi bsNone后的相关问题解决方法
问题及解决方法1.任务栏右键popup无法显示Application 设置Application.MainFormOnTaskbar := False; 2.程序窗口最大化后遮住任务栏Form 设置self.Align:=ALcLient; 其他相关1.delphi 程序打开隐藏软件任务栏条ShowWindow(Application.Hand...
2013-03-25 00:53:25
220
原创 delphi bsNone 之后任务栏右键无反应
在项目中viewSource添加Application.MainFormOnTaskbar := False;
2013-03-25 00:51:54
162
原创 delphi 获取任务栏高度
var TrayWnd: HWnd; //任务栏句柄 Rec : TRect;begin TrayWnd := FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄 GetWindowRect(TrayWnd, Rec); //获取任务栏尺寸 Showmessage('任务栏的高度是:' + IntToStr(Rec.Bot...
2013-03-25 00:23:44
367
原创 delphi 窗口阴影
放窗体创建事件里面SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);
2013-03-23 02:07:40
723
原创 delphi 窗体全透明，但窗体上的控件不透明
//窗体全透明，但窗体上的控件不透明procedure TForm1.Button1Click(Sender: TObject); Var frmRegion, tempRegion: HRGN; i: Integer; Arect: TRect; Begin frmRegion := 0; For I:= 0 To ControlCou...
2013-03-23 01:30:11
1091
原创 delphi 窗口
//delphi 窗口置顶self.formstyle:=fsStayOnTop; //c++SetWindowPos(handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_SHOWWINDOW)
2013-03-23 01:22:20
154
原创 delphi 制作圆角窗口
procedure TForm1.FormCreate(Sender: TObject);var Hnd: THandle;begin Hnd := CreateRoundRectRGN(0, 0, Width, Height, 15, 15); SetWindowRGN(Handle, Hnd, True);end;
2013-03-23 01:06:33
385
原创 Delphi RAD Studio XE2编译程序体积大的问题
作者：cashfly 发布：2012-03-27 15:12 最近准备换Delphi高版本来写程序，以前一直用7。想体验一下新版本带来的便捷，首先有一个体积问题，看下文介绍。首先，在IDE里可以直接编译Win32，Win64和OSX的程序（当然，要调试运行OSX程序，你需要相应的环境）其次，FireMonkey没有VCL的控件丰富，比如FireMonkey没有RichEdit控件。第三，...
2013-03-22 03:57:56
481
原创 Delphi XE2 破解补丁注册机下载使用教程
Delphi XE2 破解补丁注册机下载使用教程 http://hi.baidu.com/warrially/item/18651e711134d15e0c0a0764
2013-03-21 17:59:59
793
原创 DELPHI 让程序只能运行一次
在你的程序的主FORM 的 FORMCREATE 事件里面添加如下的代码：procedure 主FORM.FormCreate(Sender: TObject);varerrno:integer;hmutex:hwnd;beginhmutex:=createmutex(nil,false,pchar(application.Title));errno:=getlas...
2013-03-20 16:21:38
317
原创 Delphi中禁止WebBrowser右键的方法
uses MSHtml;//在控件标签additional中找到TApplicationEvents控件，拖到窗体上．在TApplicationEvents的OnMessage事件中加入以下代码：procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);begin if (Msg.mes...
2013-03-20 12:59:30
164
原创 delphi弹出信息框大全
delphi弹出信息框大全 1． 警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING); 2．疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION); 3．错误提示框 MessageBox(Handle,'错误信息框','错误信息框',MB_ICONERROR); ...
2013-03-20 04:42:14
811
原创 delphi 播放gif 动画
uses GIFImg; 2 procedure TForm1.FormCreate(Sender: TObject); 3 begin 4 // 先在窗体上放一个 TImage 组件：Image1； 5 Image1.Picture.LoadFromFile('C:\Example.gif'); 6 // AnimationSpeed 设定动画速度，值越大，速度越快； 7 TGI...
2013-03-20 00:20:58
331
原创 javascript 禁止鼠标右键...
<body oncontextmenu="return false" onselectstart="return false" ondragstart="return false" onbeforecopy="return false" onmouseup=document.selection.empty() oncopy=document.selection.empty() onselec...
2013-03-19 18:59:14
195
原创 delphi webbrowser 常用方法示例
delphi webbrowser 常用方法示例 http://blog.youkuaiyun.com/baronyang/article/details/7485258
2013-03-19 16:00:25
118
原创 delphi 获取可执行文件的当前路径
在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别: ExtractFilePath 传回值的最後一个字元是反斜杠“/”。ShowMessage(ExtractFileDir(Application.Exename)); // 返回值为 c:/tempShowMessage(ExtractFilePa...
2013-03-19 06:17:05
177
原创 delphi 获取鼠标当前位置的相对坐标
delphi 获取鼠标当前位置的相对坐标unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Butt...
2013-03-19 05:36:12
669
原创 delphi打开一个IE窗口
//打开网页 // use shellapi; //只打开一个窗口 //ShellExecute(handle, '' , pChar('http://www.youkuaiyun.com'), '','', SW_SHOWNORMAL); //新建一个窗口 // ShellExecut...
2013-03-19 05:35:01
194
原创 让delphi嵌入的WebBrowser无边框无滚动条
//浏览器页面加载完成 procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin WebBrowser1.OleObject.Document.Body.Scroll := 'no'; //不显示滚动条 ...
2013-03-17 20:34:56
335
原创 delphi实现拖动无标题窗口的5种方法
1.MouseMove事件中加入：// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017 , 0); 2.MouseDown事件中加入：// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);// POSTMESSAGE(Self.Handle,274,61458,0); 3.MouseDown事件中加入：// Rele...
2013-03-17 20:02:08
587
原创 javascript div 滚动到底部
var div = document.getElementById('divDetail'); div.scrollTop = div.scrollHeight;
2013-03-08 22:46:04
130
原创 mysql my.cnf 配置优化
PS：本配置文件针对Dell R710，双至强E5620、16G内存的硬件配置。CentOS 5.6 64位系统，MySQL 5.5.x 稳定版。适用于日IP 50-100w，PV 100-300w的站点，主要使用InnoDB存储引擎。其他应用环境请根据实际情况来设置优化。# 以下选项会被MySQL客户端应用读取。# 注意只有MySQL附带的客户端应用程序保证可以读取这段内容。# 如果你想你...
2013-02-23 13:22:17
126
原创 Snoopy 示例代码
include "Snoopy.class.php"; //$url = 'http://info.eqfc.cn';$snoopy = new Snoopy; $snoopy->fetch($url); //获取所有内容 //可选以下 //$snoopy->fetchtext($url); //获取文本内容（去掉html代码） //$snoopy-&g...
2013-02-21 10:59:14
290
原创 mysql的快速去除重复记录的方法
mysql的快速去除重复记录的方法。1.相当有用的一招，原文复制如下：不希望数据表中有重复记录的时候我们可以给表添加一个联合唯一索引例如，user表中有user_id,user_name两个字段，如果不希望有两条一摸一样的的user_id和user_name，我们可以给user表添加两个字段的联合唯一索引：alter table user add unique index(user_id...
2013-02-19 09:21:18
90
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人