delphixe4 开发蓝牙(关于delphi的问题delphi XE4)
本文目录
关于delphi的问题delphi XE4
uses shlobj,ActiveX,ComObj; function TForm1.ExeFromLink(const linkname: string): string; var link: IShellLink; storage: IPersistFile; filedata: TWin32FindData; buf: Array of Char; widepath: WideString; begin OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, link)); OleCheck(link.QueryInterface(IPersistFile, storage)); widepath := linkname; Result := ’unable to resolve link’; If Succeeded(storage.Load(@widepath, STGM_READ)) Then If Succeeded(link.Resolve(GetActiveWindow, SLR_NOUPDATE)) Then If Succeeded(link.GetPath(buf, sizeof(buf), filedata, SLGP_UNCPRIORITY)) Then Result := buf; storage := nil; link:= nil; end; //调用方法 procedure TForm1.Button2Click(Sender: TObject); begin //edit3.text:=’C:\Documents and Settings\hjh\桌面\OA客户端.lnk’; Edit4.Text:=ExeFromLink(edit3.Text); //Edit4.text:=’D:\Program Files\OA客户端\OAUpdate.exe’; end;
如何用Delphi XE4来开发iOS应用程序
概述:使用Devart data access components来摆脱IOS对应用App的开发限制,随心所欲的开发你想要的应用程序。使用UniDAC在Delphi XE4中开发iOS应用如何用Delphi XE4来开发iOS应用程序(2)如何用Delphi XE4来开发iOS应用程序(3)InterBaseInterBase与前面提到的四种数据库会有稍稍的不同。在IOS里,你既可以通过本地,也可以远程的和InterBase数据库进行工作。下面我们分别来看看。首先第一步,指定Provider:UniConnection.ProviderName :=’InterBase’;若是本地数据库的话,就指定本地文件的路径:UniConnection.Database := IncludeTrailingPathDelimiter(TPath.GetDocumentsPath) +’db.gdb’;若是远程数据库则指定服务器名称和文件在服务器上的路径:UniConnection.Server :=’server’;UniConnection.Database :=’D:db.gdb’;连接本地数据库的例子:var UniConnection: TUniConnection;begin UniConnection := TUniConnection.Create(nil); try UniConnection.ProviderName :=’InterBase’; UniConnection.Database := IncludeTrailingPathDelimiter(TPath.GetDocumentsPath) +’db.gdb’; UniConnection.Username :=’user_name’; UniConnection.Password :=’password’; try UniConnection.Connect; except onE: Exceptiondo ShowMessage(E.Message); end; finally UniConnection.Free; end;end;连接远程数据库的例子:var UniConnection: TUniConnection;begin UniConnection := TUniConnection.Create(nil); try UniConnection.ProviderName :=’InterBase’; UniConnection.Server :=’server’; UniConnection.Database :=’D:db.gdb’; UniConnection.Username :=’user_name’; UniConnection.Password :=’password’; try UniConnection.Connect; except onE: Exceptiondo ShowMessage(E.Message); end; finally UniConnection.Free; end;end;
更多文章:
word转换成pdf用什么软件(把Word转换成PDF,哪个软件好)
2024年6月30日 06:50
戴尔mcafee要不要卸载(戴尔笔记本上的迈克菲中心需不需要卸载)
2024年5月22日 10:20
为什么有人说咪蒙、张伟是优秀的产品经理?销售经理带领团队思路
2024年7月3日 16:04
金山毒霸有必要安装吗(windows7有必要安装金山毒霸吗)
2024年8月12日 11:21
mysql虚拟主机(虚拟主机如何导入mysql/mssql数据库,怎样导入数据库备份到库)
2023年10月2日 15:20
真人四人麻将免费版(安庆真人麻将四人麻将打钱5元以下是多少)
2024年7月17日 22:50
中望cad2007授权号(帮忙算中望CAD2007标准版授权号)
2024年3月21日 10:15
复星医药股票(拍板减持复星医药,不是郭广昌决定的曾坦诚此举是一败笔)
2024年6月24日 05:40