[lmikle]

Сообщение от dagon81

Спасибо, но не много не то, мне надо из пути к файлу убрать путь к исполняемой программе.
например
путь к исполняемой программе I:\code\project\
путь к файлу I:\code\project\Icon\1.ico и из этого пути убрать путь программы.
Надеюсь объяснил.

FYI:

Код:

var
  FileName : Stirng;
  RelFileName : String;
  Idx : Integer;
begin
  FileName := 'I:\code\project\Icon\1.ico';
  Idx := Length(ExtractFilePath(ParamStr(0)));
  RelFileName := Copy(FileName,Idx+1,Length(FileName)-Idx);
end;

Вроде так.