Nach Benutzeraktion beenden

[freakfly]

Hallo!

Ich habe ein kleines Programm, und wenn das Programm sieht, das es bereits läuft, soll es sich nach dem Anzeigen einer 'showmessage' beenden. Es klappt soweit alles, bis auf das die showmessage kurz aufblinkt, und das Programm sich dann beendet. Hat jemand ne Idee, die ich machen kann, das erst nach dem der Benutzer auf OK geklickt hat das Programm beendet wird?

Delphi-Quellcode:

begin
  sForbidden := 'winlogon.exe';
    if sForbidden = sl.Strings[i] then
    begin
    showMessage('Prozess konnte nicht erstellt werden:'+ #13+
              'Sie haben bereits eine Lernsoftware gestartet!');
    Halt(0);
    end
    else if sForbidden <> sl.Strings[i] then
      i:= i+1;
  end;

Thx freakfly

[freakfly]

Was ich vielleicht noch dazu anmerken sollte wäre, dass das winlogon.exe nur ein Testwert ist. winlogon.exe läuft halt immer. Und deswegen sollte es auf jedenfall klappen.

[Steve]

Hi,

versuchs mal mit MessageDlg:

IF MessageDlg('Fehler usw.',mtError,[mbCancel],0) = mrCancel THEN ... kA, obs geht

Gruß
Stephan

[freakfly]

Hallo!

Danke dir, der Tip war super, funktioniert einwandfrei....
Wünsche allen ein schönes Wochenende!!!!

Gruß, freakfly