Скачать: CL | DM;

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

← →
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]; .

---

← →
Rouse_ ©   (2004-05-16 19:36) [4]

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

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

---

← →
DIS ©   (2004-05-16 20:38) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c