Bildschirmauflösung + Form

[moin339]

Moin!

Ungefähr so:

Delphi-Quellcode:

procedure schreiben;
var dc: hdc;
var s:string;
begin
  DC := getdc(0);  // O = Desktop
  s := 'Moin!';
  SetBkMode(dc, transparent);  //hintergrund transparent
  SetTextAlign(dc,ta_center);  //Ausrichtung: center
  SetTextColor(dc,RGB(0,0,255));  //Farbe: blau
  TextOut(dc,(screen.width div 2),(screen.Height div 2),PChar(s),length(s));
end;

cu