Ich habe jetzt folgenden Ansatz versucht: Die Module-Abfrage läuft über einen Thread. Über TTimer schieße ich nach 2 Sekunden den Thread ab, wenn er zu keinem Ergebnis gekommen ist.

Funktioniert aber leider so nicht:

tmoduleinfo.cpp

__fastcall thgetModule::thgetModule(bool CreateSuspended, int ProcHandle)
  : TThread(CreateSuspended)
{
   FreeOnTerminate = true;
   m_hModuleSnap = INVALID_HANDLE_VALUE;
   m_ProcHandle = ProcHandle;
}
//---------------------------------------------------------------------------
void __fastcall thgetModule::Execute()
{
  //---- Hier den Thread-Code plazieren----
  //Endlosschleife für Test
  while (true)
  {
    //Nachträglich eingefügt:
    if (Terminated)
      break;

    Application->ProcessMessages();
    m_hModuleSnap = INVALID_HANDLE_VALUE;
  }
  //hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
}
//---------------------------------------------------------------------------

void __fastcall thgetModule::OnTerminate (TObject *Sender)
{
  m_hModuleSnap = INVALID_HANDLE_VALUE;
}

tprocess.cpp

TProcessList::TProcessList()
{
  ProcessList = new TStringList();
  m_timer = new TTimer(NULL);
  m_timer->Interval = 2000;
  m_timer->Enabled = false;
  m_timer->OnTimer = thgetModuleTimer;
  getProcessList();
}

int TProcessList::getProcessList()
{
  ...
      HANDLE hModuleSnap = INVALID_HANDLE_VALUE;
      m_thgetModule = new thgetModule (false, pe32.th32ProcessID);
      if (m_thgetModule)
      {
        m_timer->Enabled = true;
        //Thread starten
        m_thgetModule->WaitFor();
        hModuleSnap = m_thgetModule->m_hModuleSnap;
        delete m_thgetModule;
        m_timer->Enabled = false;
      }
  ...
}

void __fastcall TProcessList::thgetModuleTimer(TObject *Sender)
{
  m_timer->Enabled = false;
  //Thread abschiessen
  if (m_thgetModule)
    m_thgetModule->Terminate();
}

Der Code ist auf das Wesentliche gekürzt. Leider fehlt mir sowohl in der Thread-Programmierung unter VCL als auch die Komponentenverwendung ohne Formulare die Erfahrung.

Das Problem: Der Timer-Event kommt nie an. Liegt es am Thread oder an einer falschen Initialisierung des Timers?

Evi48

Nachtrag: Liegt es vielleicht an der NULL für den Owner, was kann ich ohne Formular da sonst angeben?

Terminate setzt die Eigenschaft Terminated des Thread auf true und signalisiert, daß der Thread so bald wie möglich beendet werden sollte. Im Gegensatz zu der Windows-API-Methode TerminateThread, die den Thread sofort beendet, fordert die Methode Terminate den Abbruch des Thread nur an. Dadurch kann der Thread vor seiner Beendigung noch erforderliche Aufräumarbeiten durchführen.

Die Methode Execute eines Threads sowie alle von Execute aufgerufenen Methoden sollten die Eigenschaft Terminated regelmäßig abfragen und die Ausführung gegebenenfalls beenden.

Evi48

Löst aber des eigentliche Problem nicht, da Terminated niemals gesetzt wird. Die Timer-Funktion erhält keinen Aufruf.

Auch hier das gleiche Bild. Nach Aufruf von WaitFor geht nur noch Execute.

Die Idee war, den Thread von aussen abzuschießen. Dieser müsste doch unabhängig vom Hauptprogramm vor sich hin laufen. Warum kommt im Hauptprogramm kein Event an?

Welche Möglichkeiten bleiben da noch?

CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, pe32.th32ProcessID);

abstürzen kann, wenn th32ProcessID auf einen abgestürzten Prozess abfragt. Dieser Zustand ist sicherlich selten aber aufgrund der Anzahl der Anwender nicht tragbar.

Die bei diesem Aufruf ermittelten Informationen (es geht um den Ausführungspfad des Prozesses) sind zwar sinnvoll, aber im Einzelfall (eben Absturz des Prozesses) nicht so wichtig.

Ich muss daher in der Lage sein, den Funktionsaufruf irgendwie zu canceln. Ähnlich der Windows-Funktion "... Anwendung reagiert nicht mehr".

Jetzt aber die Überraschung: Auch hier gibt es kein Timer-Event!!

Ist Application->ProcessMessages hier falsch?

So läufts:

HANDLE hModuleSnap = INVALID_HANDLE_VALUE;
      m_thgetModule = new thgetModule (false, pe32.th32ProcessID);
      if (m_thgetModule)
      {
        //Auf Ende Warten
        WaitForSingleObject ((HANDLE) m_thgetModule->Handle, 2000);
        //Thread anhalten
        m_thgetModule->Suspend();
        //Ergebnis holen
        hModuleSnap = m_thgetModule->m_hModuleSnap;
        //Thread beenden
        m_thgetModule->Terminate();
        delete m_thgetModule;
      }

Kein Timer mehr!

Der Aufruf des Constructors mit false macht aber lustige Sachen. Der Thread startet, noch während der Constructor arbeitet!??!

Suspend ist notwendig, da es sonst ein Timinig-Problem mit Terminate() gibt und es knallt beim Delete.

Suspend ist notwendig, da es sonst ein Timinig-Problem mit Terminate() gibt und es knallt beim Delete.

???
Hast Du überhaupt schon mal in die Hilfe zu TThread geschaut?

Terminate ruft die Funktion PostQuitMessage der Windows-API auf, um die Anwendung kontrolliert zu beenden. Die Methode Terminate wirkt somit nicht direkt.

Mag ja sein, dass ich ein bisschen begriffsstutzig bin, aber der Hilfe kann ich immernoch nicht entnehmen, dass ein Aufruf von Suspend vor Terminate und delete notwendig ist. Wie dem auch sein, darauf bin ich ja schließlich auch selbst gekommen.

Klar ist mir jedoch weiterhin nicht, warum das Timer-Event auch innerhalb des Threads nicht gefunzt hat.

Aber was solls, funzt mit WaitForSingleObject prima und wesentlich einfacher. Nochmals Danke.

Terminate setzt die Eigenschaft Terminated des Thread auf true und signalisiert, daß der Thread so bald wie möglich beendet werden sollte. Im Gegensatz zu der Windows-API-Methode TerminateThread, die den Thread sofort beendet, fordert die Methode Terminate den Abbruch des Thread nur an. Dadurch kann der Thread vor seiner Beendigung noch erforderliche Aufräumarbeiten durchführen.

Wenn jetzt in der Execute-Funktion auf Terminate geprüft und die Funktion beendet wird, warum schlägt das delete dann trotzdem fehl?

Terminate() setzt lediglich FTerminated und damit die Eigenschaft Terminated auf true. Die Funktion Execute fragt in der Schleife zunächst auf Terminated ab, und beendet sich. Dies geschieht jedoch zeitlich nach dem delete. Verwundert war ich auch darüber, das Execute schon aufgerufen wird, bevor überhaupt der Constructor abgearbeitet ist, wenn mit CreateSuspended = false aufgerufen wird, was ja in diesem Falle notwendig ist. Warum ist schon klar, da schon der Constructor von TThread selbiges macht.

Aber, worüber diskutieren wir hier eigentlich? :p