Problem mit RunOnce

[Luckie]

ExctractFilepath:

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// Procedure : CutFilename
// Comment   : ExtractFilepath

function CutFilename(s: string): string;
var
  i: integer;
begin
  result := s;
  for i := length(s) downto 1 do
    // Von hinten den Backslash suchen. Wenn gefunden alles bis inkl. Backslash kopieren
    if s[i] = '\' then
      begin
        result := copy(s, 1, i);
        // Nach dem ersten Backslash beenden
        break;
      end;
end;

MesasageDlg:
Messagebox(Handle, 'mein Text', 'Meine Caption', MB_ICONYESNO or MB_ICONQUESTION);