#include<Registry.hpp>AnsiString GetDefaultApp(AnsiString ext) { TRegistry* reg = new(TRegistry); reg->RootKey = HKEY_CURRENT_USER; if(!reg->OpenKeyReadOnly("Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts\\."+ext+"\\OpenWithList")) return(NULL); try { AnsiString MRUList = reg->ReadString("MRUList"); AnsiString ret = reg->ReadString(AnsiString(char(MRUList[1]))); return(ret); } catch(...) { return(NULL); } }
#include<Registry.hpp>TStringList* OpenWithList(AnsiString ext) { TRegistry* reg = new(TRegistry); TStringList* ret = new(TStringList); reg->RootKey = HKEY_CURRENT_USER; if(!reg->OpenKeyReadOnly("Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts\\."+ext+"\\OpenWithList")) return(NULL); try{ AnsiString MRUList = reg->ReadString("MRUList"); for(int i = MRUList.Length(); i > 0; i--) ret->Insert(0,reg->ReadString(AnsiString(char(MRUList[i])))); return(ret); } catch(...) { return(NULL); } }
#include<shellapi> void OpenURL(AnsiString URL) { AnsiString app = GetDefaultApp("html"); if(app == NULL) return; ShellExecute(NULL,"open",app.c_str(),URL.c_str(),NULL,SW_SHOWDEFAULT); }
OpenURL("http://www.AlgorithMan.de/");