thread fehler: coInitialize wurde nicht aufgerufen ?

[shmia]

Warum verwendest du nicht die Klasse TThread?
Das sähe dann so aus:

Delphi-Quellcode:

procedure TAgm65Thread.Execute;
var
   i : integer;
begin
  CoInitialize(nil);
  try
     for i:=0 to 100 do
     begin
        sleep(100);
        Beep(1000 + i*20, 30);
        if i = 50 then
           Synchronize(Ausgabe);
     end;
  finally
     CoUninitialize;
  end;
end;
procedure TAgm65Thread.Ausgabe;
begin
   ShowMessage('Meldung vom Thread');
end;

ShowMessage innerhalb eines Threads (ohne Synchronize) ist übrigens verboten.

Zitat von agm65:

kann es sein , dass threads mit dualcores abkacken ?

NEIN, kein Problem.