Umbenannte Ordner erkennen

[Waldteufel]

Hi.

Zitat von Christian Seehase:

Eventuell lässt sich dieses ja auch mit Ordnern machen.

Nicht nur eventuell, sondern sogar ganz bestimmt

//edit:
z.b. So: (Pseudocode)

Code:

procedure Markieren(ordner : string);
begin
  fs := FileStream(ordner + ':markierung', m_Write);
  fs.Write('markiert');
  fs.Free;
end;

function IsMarkiert(ordner: string) : boolean;
begin
  fs := FileStream(ordner + 'markierung');
  if fs.ReadString(length('markiert')) = 'markiert' then result := true;
  fs.Free;
end;