Multitasking Interna verstehen

[delphifan2004]

Ich will gerade das hier durchspieln, um Übung in der Programmierung mit Threads unter Windows zu kriegen. Das ist aus Luckies Thread Tutorioal von Seite 12:

Delphi-Quellcode:

type 
  TThreadParams = packed record 
    Number: Integer; 
    Text: String; 
  end; 
  PThreadParams = ^TThreadParams;


function ThreadFunc(tp: PThreadParams): Integer; 
var Number : Integer; Text : string; s : string; 
begin 
  // Parameter lokalen Variablen zuweisen. 
  Number := PThreadParams(tp)^.Number; Text := PThreadParams(tp)^.Text; 
  s := ’Zahl: ’ + IntToStr(Number) + #13#10 + ’Text: ’ + Text; 
  
  // ExitCode enthält Rückgabewert der Messagebox. 
  Result := MessageBox(0, PChar(s), ’Thread’, MB_YESNO or MB_ICONINFORMATION); 
  // Reservierten Speicher für Parameter wieder freigeben. 
  Dispose(tp); 
end;

procedure RunThread; 
var 
  tp : PThreadParams; 
  Thread : THandle; 
  ThreadID : Cardinal; 
  ExitCode : Cardinal; 

begin 
  // Speicher für Struktur reservieren. 
  New(tp); // Daten den feldern der Struktur zuweisen. 
  tp.Number := 42; 
  tp.Text := ’Die Antwort.’; 
  
  // Thread erzeugen. 
  
  Thread := BeginThread(nil, 0, @ThreadFunc, tp, 0, ThreadID); 
  
  // Auf Beendigung des Threads warten. 
  
  WaitForSingleObject(Thread, INFINITE); 
  // Rückgabewert ermitteln... 
  GetExitCodeThread(Thread, ExitCode); 
  // ...und auswerten. 
  case ExitCode of 
    IDYES: Writeln(’Benutzer hat "Ja" angeklickt.’); 
    IDNO: Writeln(’Benutzer hat "Nein" angeklickt.’); 
  end; // Thread-Handle schliessen udn somit das Thread-Objekt zerstören. 
  CloseHandle(Thread); 
end;

Wo stehen die Zahlenwerte für die Konstanten IDYES und IDNO? In der Unit Windows?

Der Grund ist, in der Case Anweisung wird für die Ausgabe Writeln verwendet, in der Threadfunc aber die Messagebox. In einer VCL Anwendung aber mit writeln hantieren?

Ich will deshalb anstelle der Messagebox eine Funktion unter Verwendung von Readln schreiben, die mir diese beiden Werte erzeugt. Aber dazu brauche ich ja diese Werte. Wenn die in der Windows Unit stehen passt alles. Wenn nicht, wo stehen sie dann? Dann kann ich für meine Thread Gehversuche eine Konsolenanwendung anlegen.