Team BlueWater Game Online Tutorial's
Bine ati venit la Team-BlueWater!!Tutorial's 4 all Games!

USE default Browser - [SOURCE]

Go down

USE default Browser - [SOURCE]

Post  Karma on Sun Jul 31, 2011 7:47 am

Code:
uses
Registry;

Function DefaultBrowser(): STRING;
var
regist: TRegistry;
BrowserPath: STRING;
begin
regist:=Tregistry.Create;
regist.RootKey:= HKEY_CLASSES_ROOT;
regist.OpenKey('\http\shell\open\command\',FALSE);
BrowserPath :=  Trim(regist.ReadString(''));
regist.Free;
BrowserPath := Copy(BrowserPath, 2, length(BrowserPath));
result := Copy(BrowserPath,0, Pos('"', BrowserPath)-1);
end;
avatar
Karma
Admin
Admin

Mesaje : 1092
Data de inscriere : 2011-04-22
Varsta : 27
Localizare : Craiova

View user profile http://team-bluewater.forumz.ro

Back to top Go down

Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum