文章列表
 
2010-04-15 12:19

月光石女装淘宝店>>

为中国女性打造一份集优质服饰、美丽咨询服务为一体的美丽事业。

 
2010-03-16 17:31
[Code] var ErrorCode: Integer; IsRunning: Integer; // 安装时判断客户端是否正在运行 function InitializeSetup(): Boolean; begin Result :=true; //安装程序继续 IsRunning:=FindWindowByWindowName('东方宽频网络电视'); while IsRunning<>0 do begin if Msgbox('安装程序检测到客户端正在运行。' #13#13 '您必须先关闭它然后单击“是”继续安装,或按“否”退出!', mbConfirmation, MB_YESNO) = idNO then begin
 
2010-03-16 17:30
出处:http://blog.csdn.net/mqwind/archive/2009/08/19/4463484.aspx 添加到启动 [Registry] Root: HKLM; Subkey: SOFTWARE\Microsoft\Windows\CurrentVersion\Run; ValueType: string; ValueName: 开机启动; ValueData: """C:\Program Files\Thunder\Thunder.exe"" /s"; Flags: uninsdeletevalue 1 、如何让协议许可页面默认选中我同意按钮 [code] procedure InitializeWizard(); begin WizardForm.LICENSEACCEPTEDRADIO.Checked := true; end; 2、自定义安装程序右上角图片大小 [code] procedure InitializeWizard(); begin Wi
 
2010-01-31 16:49

delphi 2010中默认的string char pchar都为wide双字节型的,若要使用以前的代码在delphi2010中顺利编译通过,得出正确结果,请修改为ansi 单字节型(string-ansistring char-pchar,pchar-pansichar)。

http://hi.baidu.com/zhxp/blog/item/3abbf03675dfa63b0a55a917.html

pos、ansipos、fillchar在delphi2010中unicode的问题

2009-12-01 22:32
 
2010-01-24 16:16

http://hi.baidu.com/allen_086/blog/item/4bb580f3cd4dcf18b17ec53b.html

2010-01-14 13:18

折腾了一个上午终于搞定了。首先说一下环境:winXPSP2+Delphi2010+dbx+firebird2.5 1.

下载Firebird-2.5.0.24643-0_Win32_embed_Beta2.zip,解压到一目录中,例如:FB。 2.程式设计的时候不要变更任何参数。(FBCONNECTION主要属性:LibraryName=dbxfb.dll, VendorLib=fbclient.dll)

把以下DLL文件放到和exe同一目

 
2010-01-17 17:57

Delphi从Internet下载文件

Posted on 2007-04-17 18:13 OldHawk 阅读(975) 评论(1)
 
2010-01-07 18:05

浮动窗体的实现

http://blog.tianya.cn/blogger/post_show.asp?BlogID=68097&PostID=806089

需要一个这样的窗体:
a:没有标题栏; b:可以改变大小; c:不在任务栏上显示图标; d:如果不是主窗体,它的最小化不受主窗体的限制; e:在最顶端显示

处理:
a:不在任务栏出现的,只要设置窗体的属性为ToolWindow就可以了.
b

 
2010-01-05 19:47

http://www.th7.cn/Article/bc/de/200709/66763_7.html
在implementation后添加声明:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏
RegisterServiceProcess(GetCurrentProcessID, 0);//显示
用ALT+DEL+CTRL看不见

◇[DELPHI]程序不出现在任务栏
uses windows
var
Extendedstyle : Integer;

 
2010-01-05 19:46

 

  在使用Delphi进行工作时,也许需要将多个独立的窗口放在一个主窗口中,但有不打算使用多文档界面(MDI),那么下面介绍的方法可能对你会有所启发。直接控制窗口的产生过程,并指定它的容器对象即Parent属性或ParentWindow 属性。

  使用容器。这个容器是指可以容纳目标窗口的控制元件(WindowsControl),它可以是窗口、面板、页面控制等VCL对象。一个窗口在类别注册后将调用API

 
2010-01-05 19:45

http://fanself.yourblog.org/logs/3033284.html
    var Drv, Pid: string;
    Drv := ExtractFileDrive(ParamStr(0));
    if GetDriveType(PChar(Drv + '\')) <> DRIVE_REMOVABLE then
    begin
       Application.MessageBox('对不起,请把本程序放至到优盘上使用!', '致命性错误', MB_ICONHAND);
   

 
   
 
 
文章存档
 
     
 
最新文章评论
  

en
 

个性化需求
 

。。。
 

加注释啊
 

能否请教一下,这个\B是什么意思,我怎么查不出来,谢谢
   
帮助中心 | 空间客服 | 投诉中心 | 空间协议
©2012 Baidu