许明吉博客

摘要： 如果检测到有老版本存在就先卸载老版本才形始新的安装过程，写了如下代码QUOTEFunction .onInit ReadRegStr $0 HKLM "${PRODUCT_UNINST_KEY}" "InstallDir" ${If} $0 == ""; MessageBox MB_ICONINFORMATION|MB_OK "立即开始全新安装 $(^Name)！" ${else} MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "检测到系统中已安装 $ 阅读全文

摘要： procedure TForm1.ShowSystemMenu(const LPt: TPoint);var LMenu: HMENU; LFlags: Cardinal; LCommand: LongWord;begin LMenu := GetSystemMenu(FParentForm.Handle, False); LFlags := TPM_RETURNCMD or GetSystemMetrics(SM_MENUDROPALIGNMENT); LCommand := LongWord(TrackPopupMenu(LMenu, LFlags, LPt.X, LPt.Y, 0, FP 阅读全文

摘要： try { string strg = Application.StartupPath.ToString(); strg = strg.Substring(0, strg.LastIndexOf("\\")); strg = strg.Substring(0, strg.LastIndexOf("\\")); strg += @"\Data"; string sqltxt = @"BACKUP DATABASE db_MrCy TO Disk='" + strg + "\\" + txt 阅读全文

摘要： CLRInsideOut 托管代码与非托管代码互操作,产生相关调用代码的好工具C++ 头文件转C# 的好工具http://download.csdn.net/source/2914818 阅读全文

摘要： unit MyOfficeButton;interfaceuses SysUtils, Classes, Controls,Ribbon,RibbonActnCtrls,RibbonStyleActnCtrls,forms,Windows,Math, Dialogs,Graphics,ActnMan,ActnMenus,Messages;type TMyOfficeButton = class(TOffice2007Button) private FCaptionHeight: Integer; FDefaultColorMap: TCustomActionBarColorMap; FColo 阅读全文

摘要： Request.ServerVariables("Url")返回服务器地址Request.ServerVariables("Path_Info")客户端提供的路径信息Request.ServerVariables("Appl_Physical_Path")与应用程序元数据库路径相应的物理路径Request.ServerVariables("Path_Translated")通过由虚拟至物理的映射后得到的路径Request.ServerVariables("Script_Name")执行脚本的名称 阅读全文

摘要： 版权声明请尊重原创作品。转载请保持文章完整性，并以超链接形式注明原始作者“tingsking18”和主站点地址，方便其他朋友提问和指正。view plainusingSystem;usingSystem.ServiceModel;usingSystem.ServiceModel.Channels;namespaceWcfService3{//注意:如果更改此处的类名“Service1”，也必须更新Web.config和关联的.svc文件中对“Service1”的引用。publicclassService1:IService1{publicstringGetData(intvalue){//提供 阅读全文

摘要： Delphi:界面美化,用网页做界面用TWebBrowser控件设置显示的网页,如果在本地则写全路径,放到窗体的create或show事件中var str:string;begin str:=ExtractFilePath(Application.ExeName)+test.html ; //程序目录下的test.html页 webbrowser1.Navigate(str);End;假设网页中有一个链接控件的OnBeforeNavigate2事件procedure TFmain.WebBrowser1BeforeNavigate2(Sender: TObject; const pDisp: 阅读全文

摘要： 判断是否联网在uses中加入WinInetif InternetCheckConnection('http://www.sina.com.cn',1,0) thenbegin showmessage('在线');endelsebegin showmessage('离线');end;或直接用ping后，查看(0% loss)或(100% loss)，可知在线或离线 阅读全文

摘要： 实现原理是启动一个应用程序，通过ProcessID得到窗体句柄，然后对其设定父窗体句柄为本程序某控件句柄(本例是窗体内一个Panel的句柄)，这样就达成了内嵌的效果。本文实现的是内嵌一个记事本程序，如下图：在实现细节上需要注意几点：为了美化程序的嵌入效果，需要隐藏其标题栏在外部窗体大小变化时，需要内嵌的窗体也随之变化大小外部程序退出时，内嵌的程序也要退出下面是例子程序。新建窗体，上面放置一个Panel控件，名为pnlApp，然后按下面代码编写：view sourceprint?unitfrmTestEmbedApp;interfaceusesWindows, Messages, SysUtil 阅读全文