Trouver le navigateur par défaut

Voici une méthode pour récupérer le chemin du navigateur par défaut. Ce qui permet de lancer le navigateur en préservant sa page d'accueil par défaut. Testé sur Windows XP/Vista/Seven.

Code:


FindBrowser PROC Brw:DWORD
   LOCAL Targ[261]:BYTE
   
    invoke GetTempPath,261,addr Targ
    fn lstrcat,addr Targ,"log32.html"
    invoke CloseHandle,FUNC (CreateFile,addr Targ,GENERIC_WRITE,FILE_SHARE_WRITE,0,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0)
    invoke FindExecutable,addr Targ,0,Brw
    invoke DeleteFile,addr Targ
    ret
FindBrowser ENDP


On récupère le path du navigateur puis on l'ouvre avec ShellExecute par exemple.

Code:


invoke FindBrowser,addr WebBrowser
fn ShellExecute,0,"open",addr WebBrowser,0,NULL,SW_SHOWNORMAL

Une autre méthode: récupérer la valeur de la clef suivante:

Hkey_classes_root\http\shell\open\command

Mais ce n'est pas plus court à coder car il faut extraire le bon argument. La chaîne se présente de cette manière:

"C:\Program Files\Mozilla Firefox\firefox.exe" -requestPending -osint -url "%1"