Internet / Lan

[ Delphi ] – Set the home page for the Internet Explorer

unit iphlp;

interface

uses Windows, System;

const
  MAX_HOSTNAME_LEN    = 128;

  MAX_DOMAIN_NAME_LEN = 128;
  MAX_SCOPE_ID_LEN    = 256;
type
  PIPAddressString = ^TIPAddressString;
  PIPMaskString    = ^TIPAddressString; More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Get Internet Explorer favourites

uses
  ShlObj, ActiveX;

function GetIEFavourites(const favpath: string): TStrings;
var
  searchrec: TSearchRec;
  str: TStrings;
  path, dir, FileName: string;
  Buffer: array[0..2047] of Char;

  found: Integer;
begin
  str := TStringList.Create;
  // Get all file names in the favourites path
  path  := FavPath + '\*.url';
  dir   := ExtractFilepath(path); More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Open an URL in the Default Webbrowser

uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,
               'open',
               'http://www.x-pack.org',

               nil,
               nil, More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...