Главная страница
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.012 c
1-42772
Dimk
2002-01-31 11:25
2002.02.14
Как в QReport заставить таблицу печататься в несколько полос?


14-42835
Corte
2001-12-25 08:42
2002.02.14
Есть вопрос!


14-42844
Oleg Gashev
2001-12-24 22:43
2002.02.14
С Новым Годом!!!


1-42792
Hokum
2002-01-31 16:43
2002.02.14
Имитация InterBase


3-42643
harismatik
2002-01-17 16:48
2002.02.14
Добавление нового юзера и назначение ему прав доступа к базе данных INTERBASE