[ReiFF]

Привет. Я совсем у начинающий. Помогите решить 2 проблемы с программой. Листинг такой:

Код:

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
ListBox1.Items.Insert (0,'Reply:'+IntToStr (AReplyStatus.MsRoundTripTime));
ListBox1.Items.Delete(5);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.IdIcmpClient1.Host:=Edit1.Text;
Self.IdIcmpClient1.ReceiveTimeout:=5000;
Self.IdIcmpClient1.Ping;
end;
end.

Админ: Пользуемся тегами для оформления кода!

После нажатия кнопки пакет отправляется всего один раз. Как реализовать постоянную отправку пакетов хосту?

И второй момент. Программа запускается в w7 только в режиме совместимости с ХР. Как избавиться от этого?
Заранее спасибо! Прошу сильно не критиковать, я только начал изучать программирование.

[NumLock]

1. использовать цикл
2. добавить манифест Manifest.rc в проект:
Manifest.rc

1 24 "Manifest.admin"

Manifest.admin

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
  	type="win32"
    name="DelphiApplication"
    version="1.0.0.0" 
  	processorArchitecture="*"/>
  <dependency>
    <dependentAssembly>
      <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        publicKeyToken="6595b64144ccf1df"
        language="*"
        processorArchitecture="*"/>
    </dependentAssembly>
  </dependency>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="requireAdministrator"
          uiAccess="false"/>
      </requestedPrivileges>
    </security>
  </trustInfo>
</assembly>

[ReiFF]

Ну вот что получается, результат записывается в ListBox только после того как выполняется цикл. Не могу додуматься как сделать так чтоб результат по каждому пакету записывался во время цикла, а не после него.

Код:

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
ListBox1.Items.Insert (0,'Reply:'+IntToStr (AReplyStatus.MsRoundTripTime));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin x:=1; while x < 15 do begin
Self.IdIcmpClient1.Host:=Edit1.Text;
Self.IdIcmpClient1.ReceiveTimeout:=5000;
Self.IdIcmpClient1.Ping;
x:=x+1;
end;
end;
end.

Админ: Пользуемся тегами для оформления кода!

[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=1 to 5 do
  begin
    ListBox1.Items.Add('i='+IntToStr(i));
    IdIcmpClient1.Host:='www.delphisources.ru';
    IdIcmpClient1.ReceiveTimeout:=5000;
    IdIcmpClient1.Ping;
  end;
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  ListBox1.Items.Add('Reply:'+IntToStr(AReplyStatus.MsRoundTripTime));
  Application.ProcessMessages;
end;

[ReiFF]

Спасибо за помощь! Заработало!