открыть каталог с файлами

Question

привет всем, что я вставляю в файл образа базы данных Oracle в Delphi (создайте таблицу (id int, dir varchar2 (200), blob-изображение). Теперь я хочу открыть каталог (dir) этого файла на примере dblick dbimage1: D: \ image.bmp Заранее спасибо

Answer 1

uses ShellAPI;

...

// opens Windows Explorer with the file highlighted
ShellExecute(Handle,
             'open',
             'C:\Windows\explorer.exe',
             '/start,"' + ImageFileName + '"',
             nil,
             SW_SHOWNORMAL);

// opens the default program associated with the type (extension) of the file,
// which in your case can very well be Windows Fax and Picture Viewer
ShellExecute(Handle,
             'open',
             nil,
             '"' + ImageFileName + '"',
             nil,
             SW_SHOWNORMAL);

Если ImageFileName уже содержит ", удалите их в коде выше.

Answer 2

Вы можете использовать TOpenPictureDialog , чтобы позволить пользователю выбрать файл изображения.