Win: Text über den Bildschirm schreiben

[ts-soft]

Profitipp: Lade die user32.dll in dein Programm, dort sind die API-Funktionen drinne.

Hallo Profi, Dein obiges Beispiel mit dem Text ist irgendwie Fehlerhaft. Es fehlt ein Callback zum
Neuzeichnen, ansonsten lässt sich der Text mit jedem Fenster oder Icon wegwischen

Gruß
Thomas

[Kiffi]

Profitipp: Lade die user32.dll in dein Programm, dort sind die API-Funktionen drinne.

Profitipp... Aha! So einen 'Tipp' hätte ich eher in
einem Möchtegern-Underground-Board erwartet;
geschrieben von jemanden, der sich den Arsch
abfreut, weil er damit vermeintlich 80 Euro gespart
hat, der jedoch völlig vergisst, dass er nun den
Mehraufwand mit dem LoadLibrary & Co hat.

Profis kaufen sich PureBasic.

[Mok]

Hallo Profi

Morgen!

Dein obiges Beispiel mit dem Text ist irgendwie Fehlerhaft.

psst...
aber ok, ich verbessere meine Arbeit

Code: Alles auswählen

hdc = GetDC_(GetDesktopWindow_())
text$ = "Hallo Welt!"

SetTextColor_(hdc,#Green)
SetBkColor_(hdc,#Red)

Repeat
  TextOut_(hdc,50,50,text$,Len(text$))
Until GetAsyncKeyState_(27)

ReleaseDC_(GetDesktopWindow_(),hdc)

Auch wenn's billig ist, geht's

EDIT:
@Kiffi: Ich verstehe deine Aufregung nicht! Erstens hab ich das selbst schon zigtausendmal hier im Forum gelesen, zweitens: was soll das mit Piraterie zu tun haben? Ist es schlimm zu wissen, dass Systemfunktionen in der user32 drin sind und dieses Wissen zu verbreiten?
Wer einmal ernsthaft vorhat, mit PureBasic mehr als nur ein paar Demos zu basteln, ist sowieso gezwungen, die Vollversionzu kaufen, da 800 Zeilen ja nicht wirklich viel sind.
Falls von deiner Seite jetzt wieder Anschuldigungen kommen, die mich betreffen, so bitte ich dich, mir den Mentaldünnschiss zu ersparen. Bitte nimm's jetzt nicht persönlich, aber das haben wir alles schon durchgekaut
EDIT2:

weil er damit vermeintlich 80 Euro gespart hat

Ich hab sie mir gespart! Mein Vater hats mir gekauft

[Kiffi]

@Mok: Ich wollte mit meinem Posting lediglich
zum Ausdruck bringen, die Umgehung einer
Demo-Einschränkung mit 'Profitipp' zu betiteln
schon für ziemlich starken Tobak halte.

BackToTopic:

Code: Alles auswählen

Repeat
  TextOut_(hdc,50,50,text$,Len(text$))
Until GetAsyncKeyState_(27)

auf dass die CPU kochen möge...

Grüße ... Kiffi