Consolenanwendung mit Farbe

[Aljoscha]

Hi.
Ich suche eine Möglichkeit wie ich den Text in meiner Consolenanwendung farbig darstellen kann.
Es wird meine erste Consolenanwendung, also ich bin absoluter Anfänger darin :)
Wäre nett wenn mir jemand helfen kann (unter c und dos [also bei batch etc] gehts ja auch ).

[Olli]

Ist etwas älter und auch nicht mehr so schön ... aber was soll's -> http://assarbad.net/stuff/tutorials/...sample_svc.zip (dort die consolehlp.PAS)

EDIT: :wall: Link korrigiert
EDIT2: Verdammt, mein Mirror ist nicht aktuell ... na supi ... :wall:

[barf00s]

SetConsoleAttribute()

[Aljoscha]

Uff das ging ja schnell :)
Danke euch beiden :)
Aber olli sicher das dein link geht?

//edit:
und @ barf00s
Kannst du mir einen Beispielaufruf geben?
Wie gesagt ich bin völlig neu :(
Und bei Google so wie in der Hilfe stand nichts :s
(zumindest habe ich es nicht gesehen).

[malo]

Zitat:

Zitat von Aljoscha

Aber olli sicher das dein link geht?

Versuch mal den Link hier. Ich habs nicht geprüft, dürfte aber stimmen... ;)

[Aljoscha]

Geht danke :)

//edit:
Allerdings kann ich damit garnichts anfangen :s
Was macht das programm denn überhaupt?
Testservice?
Sry ich bin eben blutiger Anfänger :(

[Olli]

Zitat:

Zitat von Aljoscha

Geht danke :)

//edit:
Allerdings kann ich damit garnichts anfangen :s
Was macht das programm denn überhaupt?
Testservice?
Sry ich bin eben blutiger Anfänger :(

Es ist eine Unit, die die entsprechenden Funktionen enthält, wie sie früher in Pascal in der Unit CRT verfügbar waren. Es gibt Leute, die lieber auf vertraute Sachen aufbauen. Daher existiert diese Unit.
Der korrekte Link: http://assarbad.net/stuff/tutorials/...sample_svc.zip (dort die consolehlp.PAS)

@malo: Danke :wall: ... ich nu wieder, bloß wegen meinem lokalen Mirror :wall:

EDIT: Naja, ihr wißt schon ... mein lokaler Mirror nicht aktuell ... :wall:

[Aljoscha]

ok danke :)
Und kann mir jemand den Aufruf von dieser Funtion hier noch erklären?

Delphi-Quellcode:

SetConsoleAttribute()

[Olli]

Das sind übrigens die beiden fraglichen Funktionen aus meiner Unit:

Delphi-Quellcode:

function TextAttribute(): Word;
var
  csbi: _CONSOLE_SCREEN_BUFFER_INFO;
begin
  if GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), csbi) then
    result := csbi.wAttributes
  else
    result := 0;
end;

procedure SetTextAttribute(attr: Word);
begin
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), attr);
end;

SetConsoleAttribute() existiert nicht - heißt SetConsoleTextAttribute().

EDIT: Bah, was habe ich einstmals für häßliche Formatierungen benutzt ... *brrr*

[barf00s]

mein Fehler ;)
aber da hätte man auch von selbst drauf kommen _können_...

thx olli