как получить относительный путь?

[Alar]

перенесено со старого форума. сообщение от timself.

Как сделать чтобы OpenPictureDialog выдавал путь до картинки не относительно корня диска, а относительно папки с прграммой (для линковки картинок в HTML)?

перенесено со старого форума. сообщение от execom.

А в чём проблема так и пиши, ну например у тебя есть файл Index.html, а в каталоге с ним каталог DATA с ресурсом REC.JPG, так и пишем DATA\REC.JPG И всё!

перенесено со старого форума. сообщение от zetrix.

Можно взять полный путь твоей проги(1*) (только путь без имени файла) и полный путь из OpenDialog (2*), а потом сроку 1* удалить из строки 2*.
Вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
begin
s1:=OpenDialog1.FileName;
s2:=ExtractFileDir(application.ExeN ame);
If OpenDialog1.Execute and (pos(s2,s1)<>0) then Delete(s2,1,length(s1)+1);
end;

Результат (относительный путь) будет в переменной S2.

перенесено со старого форума. сообщение от Alar.

функция ExtractFileDir извлекает из полного имени файла название папки
функция ExtractFileDrive извлекает из полного имени файла название диска
функция ExtractFileExt извлекает из полного имени файла расширение файла
функция ExtractFileName извлекает из полного имени файла краткое имя файла
функция ExtractFilePath извлекает из полного имени файла название патча