PureBoard

Verfasst: **18.10.2006 11:54**

Hallo Leute,
man kann ja in Windows die Eingabeaufforderung so editieren, dass sie nicht mehr weiße schrift & schwarzen hintergrund hat, sondern x beliebige farben (bsp.: blaue schrift/roter hintergrund)

ist es irgendwie möglich auszulesen, was die aktuell gesetzten farben der Eingabeaufforderung sind?

Verfasst: **18.10.2006 12:33**

gib mal

Code: Alles auswählen

color c9

ein

c ist der hintergrund, und 9 die schrift.
für andere farben gib
color /?
ein.
wie man die gesetzten werte ausliest weiß ich nicht.

..oops, ich seh grad erst, dass ich dir auch nur gesagt hab was du schon weißt

Verfasst: **18.10.2006 15:04**

Viellecht mal Eingabeaufforderung öffnen, auf die Titelleiste der Eingabeauf. klicken und dann auf Eigenschaften? Ist bestimmt am ehesten dort zu finden.

Verfasst: **18.10.2006 23:49**

AND51 hat geschrieben:Viellecht mal Eingabeaufforderung öffnen, auf die Titelleiste der Eingabeauf. klicken und dann auf Eigenschaften? Ist bestimmt am ehesten dort zu finden.

was du nicht sagst =D
da ich dachte, wir sind hier in einem programmier-forum, hab ich lösungen erwartet, wie ich das mit hilfe von code ermittle.... wie ich die farben einstell ist mir klar..
aber ich würd halt gern ne funktion getconsolecolor() machen....

Verfasst: **18.10.2006 23:56**

Nur Theorie:
-Position der Eingabeaufforderung feststellen.
-Auslesen der Farbe mittels einzelnen Bildpunkten.

es geht aber sicher auch einfacher!

Verfasst: **19.10.2006 00:23**

Zuerst muss dein Programm mal wissen, von welcher geöffneten Konsole es
die Farben ermitteln soll, oder?

Du musst sicherlich irgendwie auf den Prozess zugreifen und da im Speicher
rumsuchen oder ähnliches. Ich glaube nicht, dass es dafür eine extra API
gibt.

Verfasst: **19.10.2006 13:07**

Nic .. sehr lustig ..

Code: Alles auswählen

Global CSBI.CONSOLE_SCREEN_BUFFER_INFO

Procedure showit(cc)
  GetConsoleScreenBufferInfo_(cc,CSBI)
  PrintN(Str(CSBI\dwSize\X))
  PrintN(Str(CSBI\dwSize\Y))
  PrintN(Str(CSBI\dwCursorPosition\X))
  PrintN(Str(CSBI\dwCursorPosition\Y))
  PrintN(Str(CSBI\wAttributes)+" << hier drin sind die Farben versteckt")
  PrintN(Str(CSBI\srWindow\left))
  PrintN(Str(CSBI\srWindow\top))
  PrintN(Str(CSBI\srWindow\right))
  PrintN(Str(CSBI\srWindow\bottom))
  PrintN(Str(CSBI\dwMaximumWindowSize\X))
  PrintN(Str(CSBI\dwMaximumWindowSize\Y))
EndProcedure

OpenConsole()
  cc= GetStdHandle_(-11) ; StandardHandle
  EnableGraphicalConsole(1)
  showit(cc)
  Input()
  ConsoleColor(1,8)
  showit(cc)
  Input()

CloseConsole()

Verfasst: **19.10.2006 13:15**

wow, vielen dank =D

Verfasst: **19.10.2006 13:16**

siehste