Problem bei Konsolenanwendung mit optionaler GUI

[omata]

Ups, da hab ich leider was vergessen zu kopieren...

Delphi-Quellcode:

function GetConsoleWindow: THandle;
var S: AnsiString;
    C: Char;
begin
  Result := 0;
  Setlength(S, MAX_PATH + 1);
  if GetConsoleTitle(PChar(S), MAX_PATH) <> 0 then begin
    C := S[1];
    S[1] := '$';
    SetConsoleTitle(PChar(S));
    Result := FindWindow(nil, PChar(S));
    S[1] := C;
    SetConsoleTitle(PChar(S));
  end;
end;

Sorry,
Thorsten