путь к файлу.

← →
DIS © (2004-05-16 19:20) [0]

В архивах форума я нашел пару кодов которые позволяют узнать путь из которой запущена

программа. А как мне применить её к коду где указывается файл который нужно загрузить?

Agent1.Characters.Load("audie", "???:\autorun\audie.acs"); <= сюда нужно вставить путь.

код 1 panov © (29.12.03 19:51)

function GetExePath: String; var Buffer: array[0..1023] of Char; begin Result := ""; SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer))); end;
код 2 VMcL © (05.01.04 13:41)

function ParamStr(Index: Integer): string; var P: PChar; Buffer: array[0..260] of Char; begin Result := ""; if Index = 0 then SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer))) else //.. end;

а может ExtractFilePath(ParamStr(0)) ?????????

Заранее благодарен.

← →
MaxDDinc (2004-05-16 19:23) [1]

Что-то я не понял. Надо узнать путь, откуда запущена программа или запустить какой-то модуль с известным путем ?

← →
default © (2004-05-16 19:31) [2]

в SysUtils-е живёт
"
function GetModuleName(Module: HMODULE): string;
var
ModName: array[0..MAX_PATH] of Char;
begin
SetString(Result, ModName, GetModuleFileName(Module, ModName, SizeOf(ModName)));
end;"
Borland CopyRight

← →
Pa5ha (2004-05-16 19:31) [3]

Если я правильно понял, Тебе надо диск вместо вопросиков вставить. Можно так: Application.exename[1]; .

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
autorun
Это если ты про автозагрузку...

либо Agent1.Characters.Load("audie", ExtractFilePath(ParamStr(0)) + "autorun\audie.acs");

Большое спасибо всем. Воспользовался советом Rouse_ . То что мне нужно!

путь к файлу. Найти похожие ветки