und zwar soll die Datei anhand eines wertes identifiziert werden
bei Hex $3c-$3f da soll 544B4A43 Drinstehen

hab mal ein Codeschnipsel dazu gefunden welches mir aber nichts sagt
Dword((@buf[0])^):=$544B4A43; // CJKT bzw
Dword((@buf[$3C])^):=$544B4A43; // CJKT hab die datei erstmal nur in einen Filestream geladen

Ok geht so

markieren

Delphi-Quellcode:

FS := TFileStream.Create(OpenDialog1.Filename,fmopenreadwrite);
  FS.Position := $3c;
  FS.ReadBuffer(Buffer,4);
  S := Copy(Buffer,1,4);
  Memo1.Lines.Add(s);

aber ein problem hab ich hier bei
FS.ReadBuffer(Buffer,3); liest das programm CJK
aber bei
FS.ReadBuffer(Buffer,4); liest das programm CJKTðâ

Weil da hinter eine nicht als Zeichen darstellbare Bytefolge kommt oder der Buffer ist nicht groß genug, so dass du Müll im Speicher mit ausgibst.

Nee er war einfach zu groß hab ihn verkleinert jetzt klappt es

von Buffer:Array[1..10000]of Char; zu Buffer:Array[1..4]of Char;

markieren

Delphi-Quellcode:

  FS := TFileStream.Create(OpenDialog1.Filename,fmopenreadwrite);
  FS.Position := $3c;
  FS.ReadBuffer(Buffer,4);
  Memo1.Lines.Add(Buffer);
end