Thema: Funnproggy

Einzelnen Beitrag anzeigen

Benutzerbild von SleepyMaster
SleepyMaster

Registriert seit: 18. Mai 2003
634 Beiträge
 
#23

Re: Funnproggy

  Alt 17. Aug 2004, 17:30
Und nur mal so als Tipp:

Delphi-Quellcode:
program Project1;

uses Windows;

begin
Messagebox(0, 'Guten Morgen Mr X', 'IQ Test', 0);
Messagebox(0, '...', 'IQ Test', 0);
Messagebox(0, 'Zugriffsfehler 333: Ihre Anwendung hat einen Schluckauf oder ist besoffen. Sie wird jetzt beendet', 'IQ Test', 0);
sleep(3000);
Messagebox(0, 'Ha! So leicht werden Sie mich nicht los', 'IQ Test', 0);
Messagebox(0, '...', 'IQ Test', 0);
end.
Die Methode wäre wesentlich resourcensparender, anstelle von nem unsichtbaren Fenster, VCL und Timer und so...