Category: Internet/Lan
Title: Check if Winsock is enabled
Date added: 15.03.2006
Hits: 3104

uses
  Winsock;


function WinsockEnabled: Boolean;
var
  wsaData: TWSAData;
begin
  Result := True;
  case Winsock.WSAStartup($0101, wsaData) of
    WSAEINVAL, WSASYSNOTREADY, WSAVERNOTSUPPORTED: Result := False;
    else
      Winsock.WSACleanup;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if WinsockEnabled then
    ShowMessage('Winsock is enabled')
  else
    ShowMessage('Winsock is disabled');
end;

1. How to get the URL from running Internet Explorer? (4261 Hits)

2. How to check if a String is a valid IP Address? (5711 Hits)

3. How to get your own IP Address? (11311 Hits)

4. How to set the home page for the Internet Explorer? (2833 Hits)

5. How to get the IP from a given URL? (3991 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.