ho provato a fare un programma in modo che all'esecuzione visualizzi il msg per lo stato... ecco il codice. il problema è che mi da questi errori:

[Error] Unit1.pas(31): Types of actual and formal var parameters must be identical
[Error] Unit1.pas(17): Unsatisfied forward or external declaration: 'TForm1.InternetGetConnectedState'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,WinInet;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }

public
{ Public declarations }
function InternetGetConnectedState(var lpdwFlags: DWORD;dwReserved: DWORD): BOOL;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);

begin
if InternetGetConnectedState(INTERNET_CONNECTION_MODE M, 0) then showmessage('Pc connesso')
else showmessage('Pc non connesso');
end;

end.

--------------------------------------

che faccio???

grazie x l'aiuto...


p.s. mi servirebbe sapere anke come si crea un file, anke vuoto, meglio se senza estenzione. mi server solo x fare dei controlli...