Dial Up Coding sebelumnya

  private
    { Private declarations }
    procedure bersihList;
    procedure bacakonfig;
  public
    { Public declarations }
  end;

var
  F_Dial: TF_Dial;
  a : String;
  wVersionRequested : WORD;
  wsaData : TWSAData;
  phe : PHostEnt;
  stri : array[0..128] of char;
  pc : PChar;
  snet: PChar;
  //tm: Cardinal;

implementation

{$R *.dfm}

uses shellapi, comobj;

procedure BukaFile(sobjectpath:string);
begin
  shellexecute(0,nil,pchar(sobjectpath),nil,nil,SW_NORMAL);
end;