Verzeichnisstruktur

[medirar]

ahh. Meinst Du so?

Delphi-Quellcode:

begin
if FileExists(Pchar(GetDirFromFilename(edit1.Text+'.jpg', 'G:\PICS', [2,3,5,6])))
  then
ShellExecute(0,
             'open',
             'C:\Program Files\IrfanView\i_view32.exe',
             Pchar(GetDirFromFilename(edit1.Text+'.jpg', 'G:\PICS', [2,3,5,6])),
             nil,
             SW_SHOW)
            //end;
           else
           ShowMessage('Nicht gefunden!')
  end;
end.

[DeddyH]

Jepp, obwohl ich da dann lieber eine Zwischenvariable nutzen würde, damit die Funktion nicht mehrfach durchlaufen werden muss.

Delphi-Quellcode:

begin
  Datei := GetDirFromFilename(edit1.Text+'.jpg', 'G:\PICS', [2,3,5,6]);
  if FileExists(Datei)
  then
    ShellExecute(0,
             'open',
             'C:\Program Files\IrfanView\i_view32.exe',
             Pchar(Datei),
             nil,
             SW_SHOW)
            //end;
           else
           ShowMessage('Nicht gefunden!')
  end;
end.

[medirar]

Vielen, vielen Dank! :-D

[DeddyH]

Keine Ursache :)