Как програмно можно узнать где находится программа

[Vol666]

Вообщем мне необходимо работать со стороними файлами которые должны находится в папке с программой. Как вы поняли соль в том, что папка перемещается, что не даёт прописывать постоянные адреса к файлам. Можно ли как нибудь решить эту проблему? Заранее большое спасибо...

[Adler]

ExtractFileDir(ParamStr(0))

[Vol666]

ExtractFileDir(ParamStr(0))
А в скобках, это переменная или что?
Если можно поясните или дайте в примере.

[Terran]

В данном случае

ParamStr(0);

Это функция, которая возвращает полный путь к программе. Аналогично как

Application.ExeName

К примеру:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:=ParamStr(0);
End;

[Mr.Qwerty]

ExtractFileDir(ParamStr(0))

ExtractFileDir(paramstr(0)) // ВАЖНО !!!!!!! имя директории надо указать в дос формате.
Есть еще 2 способа:
1)

procedure ...;
var
FileToFind: string;
y, iT: Integer;
sRec: TSearchRec;
Li: TStringList;
begin
Li := TStringList.Create;
MessageDlg(ExtractFileDir(Applicati on.ExeName), mtWarning, [mbOK], 0);
y := FindFirst(ExtractFileDir(Applicatio n.ExeName) + '\*.*', faDirectory, sRec);
while (y = 0) do
begin
Li.Add(ExtractFileDir(Application.E xeName) + '\' + sRec.Name);
y := FindNext(sRec);
end;
for iT := 0 to Li.Count - 1 do
begin
FileToFind := FileToFind + Li[iT] + #13 + #10;
end;
Li.Free;
MessageDlg(FileToFind, mtWarning, [mbOK], 0);
end;

2)

try
SetErrorMode(SEM_FAILCRITICALERRORS );
FindHandle := FindFirstFileW(PWideChar(ExtractFil ePath(Application.ExeName)) + '\*.*'), FindData);
if FindHandle <> INVALID_HANDLE_VALUE then
begin
try
repeat
with FindData do
begin
// че надо и куда надо пишем
end;
until not FindNextFileW(FindHandle, FindData);
finally
Windows.FindClose(FindHandle);
end;
end
else begin
ShowMessage('Can''t read directory');
end;
finally
SetErrorMode(0);
end;

© Copyright Mishgan & LadyOfWood
http://forums.realcoding.net/lofiver....php/t709.html

[Вавел из ГМТУ]

Существуют два основных способа:

ParamStr(0) и Application.ExeName.... Собствено про них уже сказали.

И ничего не надо придумывать

[Vol666]

Используя ваши примеры я сделал вот это:
var
Dir: string;
begin
Dir:=ExtractFileDir(ParamStr(0));
Memo1.Lines.LoadFromFile(dir+'\xxx. txt');
end;
немного варварски, но работает. Ещё раз всем спасибо!

[psycho-coder]

begin
Memo1.Lines.LoadFromFile(ExtractFileDir(ParamStr(0))+'\xxx. txt');
end;

[Black Fregat]

ExtractFilePath(Application.ExeName)+'xxx. txt'

[DomiNick]

со стороними файлами которые должны находится в папке с программой

А надо ли вообще узнавать, где находится программа..?
Делфи же понимает относительные пути...

Memo1.Lines.LoadFromFile('xxx.txt');