Handle als Pointer übergeben.

[Luckie]

Also ich habe eine Thread-Funktion:

Delphi-Quellcode:

function SecondaryThread(p: Pointer): Integer;
var
  Thread: THandle;
  s: string;
begin
  result := 0;
  Thread := THandle(p);
  SuspendThread(Thread);
  s := 'Der primäre Thread [' + IntToStr(Thread) + '] wurde unterbrochen.'
    +
    #13#10;
  s := s + 'Er reagier weder auf Eingaben noch hat er eine Ausgabe.' + #13#10;
  s := s + 'Klicken sie OK, um zum primären Thread zurück zukehren ';
  s := s + 'und den sekundären Thread zu beenden.';
  Messagebox(hApp, pointer(s), 'Sekundärer Thread', MB_ICONWARNING);
  ResumeThread(Thread);
  CloseHandle(Thread);
  EnableWindow(hApp, True);
end;

Diese soll den primären Thread des Prozesses anhalten. Als Parameter kann ich nur einen Pointer übergeben. Und es muß der Hnadle des primären Threads sein.
Ich habe das bis jetzt so probiert:

Delphi-Quellcode:

              New(PrimaryThreadhandle);
              DuplicateHandle(GetCurrentProcess(), GetCurrentThread(),
                GetCurrentProcess(), PrimaryThreadHandle, THREAD_SUSPEND_RESUME,
                False, DUPLICATE_SAME_ACCESS);
              ThreadHandle := BeginThread(nil, 0, @SecondaryThread,
                PrimaryThreadHandle, 0, ThreadID);
              if ThreadHandle <> 0 then
              begin
                EnableWindow(hDlg, False);
                Dispose(PrimaryThreadHandle);
                CloseHandle(ThreadHandle);
              end;

In der Messagebox sehe ich auch einen Handle bzw. eine Zahl, nur scheint das nicht das Handle des primären Threads des Prozesses zu sein, da der Thread nicht angehlaten wird.
PrimaryThreadHandle habe ich wie folgt deklariert:
PrimaryThreadHandle: PHandle; Wie übergebe ich jetzt also den Handle als Pointer?

[Phoenix]

Du deklarierst erst die Variablen:

Delphi-Quellcode:

var
   ThreadHandle: THandle;
   PThreadHandle: ^THandle;

Und erhältst dann so den Pointer auf Dein Handle.

Delphi-Quellcode:

begin
   ThreadHandle := THandle(p);
   PThreadHandle := @ThreadHandle;
   ...

PThreadHandle übergibst Du dann.

[EDIT: Tippser entfernt]

[Chewie]

Äääh

Du willst einen Zeiger auf ein Handle übergeben, schön und gut. Aber in der SecondThread-Funktion castest du den Pointer in ein Handle, allerdings ohne ihn zu dereferenzieren. Du hast also dann in deiner Variablen nicht das Handle, sondern die Adresse des Handles.

[Luckie]

@Chewie: OK Und wie mache ich das dann richtig?

[Chewie]

Ich würd mal sagen, so:
Handle := THandle(p^);

[Phoenix]

Mit
Thread := THandle(p^); sollte es eigentlich gehen.

[EDIT: ersten war Chewie schneller und zweitens kommt das ^ tatsächlich hinter das p, nicht davor ]

[Luckie]

Scheint immer noch nicht das Handle vom Thread zu sein. Ich bekomme auch jedes mal die gleiche Zahl zu Gesicht, was ja eigentlich nicht sein kann.

[Luckie]

Bei der erten version von Phoenix bekomme ich folgende fehlermeldung bei DuplicateHandle:

Zitat:

[Fehler] Priority.dpr(241): Inkompatible Typen: 'Priority.Cardinal' und 'Windows.Cardinal'

[Phoenix]

Du übergibst auch direkt das Handle, und nicht einen Pointer auf das Handle:

ThreadHandle := BeginThread(nil, 0, @SecondaryThread, @PrimaryThreadHandle, 0, ThreadID);

Somit übergibst Du tatsächlich einen Pointer, den Du dann mit p^ dereferenzieren kannst und das Handle erhältst.

[Luckie]

Das war's.