Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.14;
Скачать: 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 вся ветка

Текущий архив: 2002.02.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-42715
blankalex
2002-02-01 12:14
2002.02.14
Raize Components


3-42685
NOV
2002-01-21 12:38
2002.02.14
alias


4-42900
Satrap
2001-12-07 14:56
2002.02.14
работа с mmSystem


3-42657
DeNNiss
2002-01-17 08:08
2002.02.14
Помогите пожалуйста!


14-42837
XM-AD
2001-12-23 11:14
2002.02.14
Подскажите, что и в какой последовательности запускать!?