11 paulfzm

尚未进行身份认证

暂无相关描述

等级
TA的排名 202w+

delphi utf8转码

uses HTTPApp;...procedure TForm1.Button2Click(Sender: TObject);begin  Edit1.text:=HTTPEncode(UTF8Encode('明信片'));end;

2013-04-16 00:18:46

delphi真正可以截获WINDOWS关机消息的源码

unitTesteandoEsta;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,WinTypes,WinProcs,Menus;typeTForm1=class(TForm)private   {Privatedeclar...

2013-04-15 23:27:48

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

delphi 点击关闭按钮时隐藏窗口

在主窗体的CloseQuery事件里,使用messagebox进行提示,根据选择的按钮对Canclose进行设置就可以了如beginifmessagebox(handle,'是否退出程序','提示',MB_YESNO)=IDNOthenCanclose:=False;end;...

2013-04-08 23:08:00

Delphi 窗体显示在最前面,并获得焦点

SetForegroundWindow(GetLastActivePopup(Self.Handle)); self.WindowState:=wsNormal; self.Show;

2013-04-08 17:49:45

解决 float point division by zero

//解决floatpointdivisionbyzero在formcreate中添加 Set8087CW(Default8087CWor$0004);

2013-04-06 17:36:33

Delphi实现程序只运行一次并激活已打开的程序

unitwdRunOnce;{********************************************brief:让程序只运行一次*autor:linzhenqun*date:2005-12-28*email:linzhengqun@163.com*blog:http://blog.csdn.net/linzhengqu...

2013-04-05 14:38:40

inno setup 添加桌面快捷方式

Name:"{userdesktop}\{#MyAppName}官方网站";Filename:"http://www.mydomain.com/";IconFilename:"{app}\SoftLogo.ico"

2013-04-05 13:37:23

inno setup 开机启动

方法1:不修改注册表有一种不写注册表的方法,其实就是将快捷方式添加到“启动”文件夹[Tasks]Name:"startupicon";Description:"开机启动";GroupDescription:"{cm:AdditionalIcons}";OnlyBelowVersion:0,6.1[Icons]Name:"{commonstartup}\{#M...

2013-04-05 11:00:53

delphi idhttp post应用

delphiidhttppost应用 uses IdMultipartFormData;{ .... }procedure TForm1.Button1Click(Sender: TObject);var  data: TIdMultiPartFormDataStream;begin  data := TIdMultiPartFormDat...

2013-04-04 15:37:36

内网穿透&UDP打洞

这两天找度度重新回忆了一下关于内网穿透的事情,在百度文库上找到了两三篇写的比较通俗易懂的文章,把内网穿透做个简单总结。 首先文章建议 ConeNAPT 还有希望,要是SymmetriNAPT 就别想了,接着介绍了两种基本情况,一是一台内网机器连接外网通信的情况,二是两台内网之间互联的情况。 第一种,只需要内网主动发起连接就可以了。内网机器A(192.168.1.x:4000...

2013-04-04 13:55:31

delphi 窗口显示在屏幕右下角

procedureTForm1.FormCreate(Sender:TObject);begin    Top:=Screen.WorkAreaHeight-Height;    Left:=Screen.WorkAreaWidth-Width;end;

2013-04-04 08:26:29

delphi dll窗体的制作和调用

一.制作dll窗口1.添加dllProject右键ProjectGroup1->AddNewProject选择DelphiProjects->ActiveX->ActiveXLibrary 2.添加窗体到dllProject右键Project1->AddNew->VCLForm 3.向新建的窗体添加外部调用代...

2013-03-28 03:13:46

delphi 调用exe文件

   ShellExecute(handle,'open','c:\Project1.exe','字串内容',nil,SW_SHOWNORMAL);  

2013-03-28 01:00:58

delphi url编码操作

 uses idUri; TIdURI.PathEncode(UTF8Encode('中文汉字'));

2013-03-26 08:54:43

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

delphi bsNone后的相关问题解决方法

问题及解决方法1.任务栏右键popup无法显示Application设置Application.MainFormOnTaskbar:=False; 2.程序窗口最大化后遮住任务栏Form设置self.Align:=ALcLient;  其他相关1.delphi程序打开隐藏软件任务栏条ShowWindow(Application.Hand...

2013-03-25 00:53:25

delphi bsNone 之后任务栏右键无反应

 在项目中viewSource添加Application.MainFormOnTaskbar:=False;

2013-03-25 00:51:54

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

delphi 窗口阴影

放窗体创建事件里面SetClassLong(Handle,GCL_STYLE,GetClassLong(Handle,GCL_STYLE)orCS_DROPSHADOW);

2013-03-23 02:07:40

查看更多

勋章 我的勋章
    暂无奖章