- 浏览: 873016 次
- 性别:
- 来自: 杭州
最新评论
-
zj7243886:
非常感谢,这东西解决我的问题;谢谢你的分享
Linux 安装 jpeg-6b 错误 ./libtool 命令未找到 -
丶Sk.Mabon:
能让html也绕过吗。。机房限制很悲剧
绕过 <?PHP exit(’Access Denied’); ?> 限制 -
丶Sk.Mabon:
请教gzip.php 的写法。万分感谢!
apache 开启 gzip -
hyxj1220:
火狐中单纯的定义这样的样式,貌似不行,必须要让容器浮动
英文长文本换行CSS -
逆水寒龙:
太好了,正好用上,谢谢博主共享
Asp.net 将中文汉字转换成拼音首字和拼音全拼
文章列表
delphi utf8转码
- 博客分类:
- delphi utf8转码
uses HTTPApp;...procedure TForm1.Button2Click(Sender: TObject);begin Edit1.text:=HTTPEncode(UTF8Encode('明信片'));end;
unit TesteandoEsta;
interface
usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, WinTypes, WinProcs, Menus;
typeTForm1 = class(TForm)private { Private declarations }public { Public declarations } procedure WMQueryEndSession (var Message: TMessage); mes ...
public { Public declarations } procedure WMNCLBUTTONDOWN(var msg: TMessage); message WM_NCRBUTTONDOWN;procedure TForm1.WMNCLBUTTONDOWN(var msg: TMessage);begin
showmessage('右键点击了'); // close;end;
在主窗体的CloseQuery事件里,使用messagebox进行提示,根据选择的按钮对Canclose进行设置就可以了如beginif messagebox(handle, '是否退出程序', '提示', MB_YESNO ) = IDNO thenCanclose := False;end;
SetForegroundWindow(GetLastActivePopup(Self.Handle));
self.WindowState:=wsNormal;
self.Show;
//解决 float point division by zero
在formcreate 中添加
Set8087CW(Default8087CW or $0004);
unit wdRunOnce;
{*******************************************
* brief: 让程序只运行一次
* autor: linzhenqun
* date: 2005-12-28
* email: linzhengqun@163.com
* blog: http://blog.csdn.net/linzhengqun
********************************************}
interface
(* 程序是否已经运行,如果运行则激活它 *)
function Ap ...
Name: "{userdesktop}\{#MyAppName} 官方网站"; Filename: "http://www.mydomain.com/";IconFilename: "{app}\SoftLogo.ico"
方法1:不修改注册表
有一种不写注册表的方法,其实就是将快捷方式添加到“启动”文件夹
[Tasks]
Name: "startupicon"; Description: "开机启动"; GroupDescription: "{cm:AdditionalIcons}"; OnlyBelowVersion: 0,6.1
[Icons]
Name: "{commonstartup}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Task ...
delphi idhttp post应用
uses IdMultipartFormData;
{ .... }
内网穿透&UDP打洞
- 博客分类:
- 内网穿透&UDP打洞
这两天找度度重新回忆了一下关于内网穿透的事情,在百度文库上找到了两三篇写的比较通俗易懂的文章,把内网穿透做个简单总结。
首先文章建议 Cone NAPT 还有希望,要是 Symmetri NAPT 就别想了,接着介绍了两种基本情况 ...
procedure TForm1.FormCreate(Sender: TObject);
begin
Top := Screen.WorkAreaHeight - Height;
Left := Screen.WorkAreaWidth - Width;
end;
一.制作dll窗口
1.添加 dll Project
右键ProjectGroup1 -> Add New Project
选择Delphi Projects->ActiveX->ActiveX Library
2.添加窗体到 dll Project
右键Project1->Add New->VCL Form
3.向新建的窗体添加外部调用代码
1). 添加接口函数声明
在 Interface 区域添加
function Createform():string;stdcall;
2).添加接口函数
在implementation下 ...
delphi 调用exe文件
- 博客分类:
- delphi 调用exe文件
ShellExecute(handle, 'open','c:\Project1.exe','字串内容',nil, SW_SHOWNORMAL);
delphi url编码操作
- 博客分类:
- delphi url编码操作
uses idUri;
TIdURI.PathEncode( UTF8Encode('中文汉字'));