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

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

← →
Ghost. ©   (2002-01-31 11:22) [0]

Как нибудь можно определить пеуть к исполняемогу файлу и его имя не используя
ExtractFilePath(Application.exeName) т.к. проэкт маленький , а добавление к нему SysUtils утяжеляет его в два раза больше самого веса..

---

← →
Кулюкин Олег   (2002-01-31 11:52) [1]

var
I: Integer;
begin
I := LastDelimiter("\:", FileName);
Result := Copy(ParamStr(0), 1, I);
end;

Может так?

---

← →
MBo ©   (2002-01-31 12:14) [2]

LastDelimiter тоже из Sysutils
проще его руками найти
s:=Application.exeName;
for i:=length(s)-1 downto 2 do
if s[i] in ["\",":"] then begin j:=i;break end;
label1.caption:=copy(s,1,j);//или j-1, если надо без \
label2.caption:=copy(s,j+1,length(s)-j);

---

← →
Serg001 ©   (2002-01-31 12:27) [3]

GetCurrentDir+Application.exename

---

← →
Ghost. ©   (2002-01-31 13:10) [4]

Это все понятно, но если например в такой проект

program Project1;

uses
WinTypes, WinProcs, registry;

var
REG : TRegistry;
begin
REG := TRegistry.Create;
//здесь что-то
REG.CloseKey;
REG.Destroy;
end.
добавить Application и все,что с ней связано то без SysUtils
работать не будет. Так проект весит примерно 40-50 в зависимости от версии Делфи, а с SysUtils значительно больше 100

---

← →
MBo ©   (2002-01-31 13:14) [5]

вместо s:=Application.exeName;

s:=paramstr(0);

---

← →
Ghost. ©   (2002-01-31 13:24) [6]

> MBo
Спасибо..вот так работает

---

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

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



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