Eingabeaufforderung

[cyan]

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?

[#NULL]

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

[AND51]

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

[cyan]

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....

[Peloka]

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

es geht aber sicher auch einfacher!

[NicTheQuick]

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.

[bobobo]

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()

[cyan]

wow, vielen dank =D

[bobobo]

siehste