wie bekomme ich das richtige Protocol raus bei einer URL?

[Sir Rufo]

Delphi-Quellcode:

implementation 

uses 

  {$IFDEF SERV_DEFAULT_PORT} 

  ActiveX, 
  ShlObj, 
  //Windows, <-- von hier ...

  {$ENDIF SERV_DEFAULT_PORT} 

  Windows, // <-- nach hier :-)
  WinInet, 
  SysUtils, 
  Classes;