var DH:HDC; TheT:string; begin //DoLoop; DH:=GetDC(0); TheT:='逗你玩!'; setBkmode(DH,TRANSPARENT); SetTextColor(DH,RGB(255,0,0)); Textout(DH,screen.Width -280 ,550,pchar(TheT),35); end;