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.