Извлечь путь к exe файлу

[lenysik]

Подскажите, пожалуйста, как можно извлечь путь к exe файлу рабочей программы, то есть определить где лежит проект

[>AdepT<]

Функция ParamStr(0) - возвращает нулевой параметр командной строки, т.е. полное имя исполняемого файла. Функция ExtractFilePath(FileName:string) - возвращает каталог, в котором лежит переданный ей файл. Сочетание этих функций вернёт путь к exe файлу: ExtractFilePath(ParamStr(0)).

[Alar]

http://delphibasics.ru/ExtractFileDir.php

справочник тебе в помощь, там многое есть...

[Fainder]

Сообщение от >AdepT<

Функция ParamStr(0) - возвращает нулевой параметр командной строки, т.е. полное имя исполняемого файла. Функция ExtractFilePath(FileName:string) - возвращает каталог, в котором лежит переданный ей файл. Сочетание этих функций вернёт путь к exe файлу: ExtractFilePath(ParamStr(0)).

Разве не проще ExtractFilePath(Application.exename );

[Alar]

Из справочника "Основы Delphi"

Пример кода : Извлечение всех частей полного имени файла 
var
  fullFileName : string;

begin
  // Установка полного имени файла с диском и путем
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Показ составляющих частей этого полного имени
  ShowMessage('Диск       = '+ExtractFileDrive (fullFileName));
  ShowMessage('Каталог    = '+ExtractFileDir   (fullFileName));
  ShowMessage('Путь       = '+ExtractFilePath  (fullFileName));
  ShowMessage('Имя        = '+ExtractFileName  (fullFileName));
  ShowMessage('Расширение = '+ExtractFileExt   (fullFileName));
end;

Диск = C:
Каталог = C:\Program Files\Borland\Delphi7\Projects
Путь = C:\Program Files\Borland\Delphi7\Projects\
Имя = Unit1.dcu
Расширение = .dcu

[Noor]

а как получиь только имя файла ... без пути и расширения....
Пример
--------
Диск = C:
Каталог = C:\Program Files\Borland\Delphi7\Projects
Путь = C:\Program Files\Borland\Delphi7\Projects\
Имя = Unit1.dcu
Расширение = .dcu
Имя файла = Unit1?????
--------------------------------------
нашел решение, используем функцию
function GetFileNameWOExt(fn:String):String;
begin
Result := Copy(fn, 1, Length(fn)-Length(ExtractFileExt(fn)));
end;

[Alar]

var
  Source : string;

begin
  Source := '12345678';
  Delete(Source, 3, 4);    // Удаление 3-го, 4-го, 5-го и 6-го символов
  ShowMessage('Source теперь : '+Source);
end;

http://delphibasics.ru/Delete.php

Возможно это использовать -

var
  before, after : string;

begin
  // Попытка заменить все вхождения A на THE
  before := 'This is a way to live A big life';

  after  := StringReplace(before, ' a ', ' THE ',
                          [rfReplaceAll, rfIgnoreCase]);
  ShowMessage('Before = '+before);
  ShowMessage('After  = '+after);
end;

http://delphibasics.ru/StringReplace.php

const
  Numbers = '0123456789';
begin
  if StrScan(Numbers, '2') <> nil
  then ShowMessage('2 - числовая цифра')
  else ShowMessage('2 - не числовая цифра');

  if StrScan(Numbers, 'A') <> nil
  then ShowMessage('A - числовая цифра')
  else ShowMessage('A - не числовая цифра');
end;

http://delphibasics.ru/StrScan.php

var
  position : Integer;

begin
  // Поиск слово 'Cat' в предложении
  // Обратите внимание: что этот поиск чувствителен к регистру, так, что
  //                    первое 'cat' не рассматривается
  position := AnsiPos('Cat', 'The cat sat on the Cat mat');
  if position = 0
  then ShowMessage('''Cat'' не найдено в предложении')
  else ShowMessage('''Cat'' было найдено начиная с символа '+IntToStr(position));
end;

http://delphibasics.ru/AnsiPos.php

И все это можно использовать

[Alar]

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

нашел решение, используем функцию
function GetFileNameWOExt(fn:String):String;
begin
Result := Copy(fn, 1, Length(fn)-Length(ExtractFileExt(fn)));
end;

Когда работаешь постоянно с текстом, проще использовать встроенные функции, быстро привыкаешь и код позднее проще разбирать.

+ Все придумано до нас

[FaTaL]

Например:
Var
f:string
begin
f:=Application.exename;
end;