Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Определение пути к исполняемогу файлу и его имя [D6, WinXP]

Ghost. © (2002-01-31 11:22:00)
Как нибудь можно определить пеуть к исполняемогу файлу и его имя не используя
ExtractFilePath(Application.exeName) т.к. проэкт маленький , а добавление к нему SysUtils утяжеляет его в два раза больше самого веса..

Ghost. (2002-01-31 13:24:00) [1]
> MBo
Спасибо..вот так работает

MBo (2002-01-31 13:14:00) [2]
вместо s:=Application.exeName;

s:=paramstr(0);

Ghost. (2002-01-31 13:10:00) [3]
Это все понятно, но если например в такой проект

program Project1;

uses
WinTypes, WinProcs, registry;

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

Serg001 (2002-01-31 12:27:00) [4]
GetCurrentDir+Application.exename

MBo (2002-01-31 12:14:00) [5]
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);

Кулюкин Олег (2002-01-31 11:52:00) [6]
var
I: Integer;
begin
I := LastDelimiter("\:", FileName);
Result := Copy(ParamStr(0), 1, I);
end;

Может так?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »