CreateThread

[CReber]

Code:

procedure ping(Item:integer);
  var ip:string;
      i:integer;
begin
  ip:=Form1.ListView1.Items[Item].SubItems[0];
  if PortPresent(ip,80)=True then
    Form1.ListView1.Items[Item].SubItems[1]:='Online'
  else
    Form1.ListView1.Items[Item].SubItems[1]:='Offline'
end;


procedure TForm1.Button3Click(Sender: TObject);
  var i:integer;
      id:dword;
begin
  for i:=0 to ListView1.Items.Count-1 do
    begin
      CreateThread(nil,0,addr(ping),nil,0,id);
    end;
end;

wie kann ich einen parameter übergeben bei der CreateThread Funktion? In meinem schlauen Büchlich steht mit einem Pointer auf die Variable aber mit

CreateThread(nil,0,addr(ping),@Item,0,id);

funktioniert es trotzdem nicht ?! Need help

Und wenn mir einer sagen kann wie ich einstellen kann das max. 15 Threads an sein sollen, wäre ich auch sehr erfreut )


für fehler und schrift, haftet der stift ! sry habs grad eilig