发一下牢骚和主题无关:
参考博客:http://www.cnblogs.com/glorysword/archive/2012/08/07/2626008.html
基于BCB的程序计划实现
1.BCB程序实现关键代码
// 页写入网页调用 TRegistry *Registry1 = new TRegistry; Registry1->RootKey = HKEY_CLASSES_ROOT; UnicodeString path = "\\Test"; if(Registry1->OpenKey(path, true)==false) ShowMsg(this,"读取注册表失败,没有读取注册表权限,请联系系统管理员!"); IsNeedDeleteOldVerSoftwareInfo = false; if (Registry1->ReadString("") != "URL:Test Protocol") { Registry1->WriteString("", "URL:Test Protocol"); IsNeedDeleteOldVerSoftwareInfo = true; } if (IsNeedDeleteOldVerSoftwareInfo) Registry1->WriteString("URL Protocol", ""); Registry1->OpenKey(path + "\\DefaultIcon", true); strAppPath = Registry1->ReadString(""); if (strAppPath != ("\"" + Application->ExeName + "\"")) Registry1->WriteString("", "\"" + Application->ExeName + "\""); path += "\\shell\\open\\command"; Registry1->OpenKey(path, true); strAppPath = Registry1->ReadString(""); UnicodeString ExePath = "\"" + Application->ExeName + "\" " + "%1"; if (strAppPath != ExePath) Registry1->WriteString("", ExePath); strAppPath = Registry1->ReadString("OldDefault"); if (strAppPath != ExePath) Registry1->WriteString("OldDefault", ExePath); delete Registry1; /////////结束
2.网页(html)的计划实现
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> <title></title> </head> <body> <a href="Test://aaaaaaaaa/">即时通讯</a> </body> </html>
文章结束给大家分享下程序员的一些笑话语录:
3G普不普及现在已经不是看终端了,而是看应用,有好的,便宜实用的应用,花1000多买个能用的智能手机应该不是什么难事。反过来说,你200元拿一个智能手机,没有好的应用,看个电影要几十元,也是没人用3G。