Application.ProcessMessages ohne unit Forms - wie?

maxk · Verfasst: Di 05.11.02 17:45

Hi,
ich schreibe gerade eine Komandozeilenanwengung, inder ich den Befehl Application.ProcessMessages; gebrauchen könnte. Die Unit Forms möchte ich aber nicht einbinden. Was hilft?

Danke im Voraus,
maxk

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

O'rallY · Beiträge: 563

Ich würde versuchen dein Problem mit einem eigenen Thread zu lösen, in dem dann die langwierige Rechenoperation ausgeführt wird.

_________________
.oO'rallY
Linux is like a tipi: No gates, no windows and a gnu-eating apache inside...

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure ProcessMessages(hWnd: DWORD);
var
  Msg: TMsg;
begin
  while PeekMessage(Msg, hWnd, 0, 0, PM_REMOVE) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

Braucht allerdings Windows.pas

maxk · Verfasst: Fr 08.11.02 07:23

Danke Luckie,
die Unit Windows muss ich sowieso einbinden. Aber was muss ich denn da für ein Handle übergeben? :oops:

Wie gesagt Komandozeile... Beim Test hat 0 es aber auch getan... :wink:

maxk

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

maxk · Verfasst: Mo 18.11.02 16:12

Zwei weitere Probleme sind folgende, (wieder ohne unit Forms)
1. wie kann man die Eigenschaft Application.Terminated abfragen
2. wie kann man Application.Title setzen?

Das sind jetzt mit Sicherheit die letzen zwei Fragen zum Thema,
maxk

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme