Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#1

Delay-Procedure in DLL auslagen

  Alt 3. Nov 2005, 21:43
Hallo,

da ich die Delay-Procedure für ein Projekt in zwei Applicationen brauche, hab ich mir gedacht, ich lagere die Delay-Procedure in eine DLL aus. (war für mich auch ein Anfang in der DLL-Programmierung)

Nur hab ich Bedenken, ob jetzt die Delay-Procedure nichts mehr bringt, also genau so arbeitet wie "sleep".

(Nochmals zur Erinnerung die Delay-Procedure
Delphi-Quellcode:
procedure Delay(Milliseconds: Integer); stdcall;
var
  Tick: DWord;
  Event: THandle;

begin
  Event := CreateEvent(nil, False, False, nil);

  try
    Tick := GetTickCount + DWord(Milliseconds);
    while (Milliseconds > 0) and
          (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      Milliseconds := Tick - GetTickcount;
    end;
  finally
    CloseHandle(Event);
  end;
end;
Wer kann mir meine Zweifel nehmen?
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat