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

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

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

Запуск программы [D7, XP]

Wolferio © (2007-06-01 10:15:00)
Как определить откуда запущена моя программа (из какой папки)

Германн (2007-06-09 16:36:00) [1]

> clickmaker © (09.06.07 16:05) [9]
>
>
> > А label1.caption при этом есть
>
>
> type TMyLabel = class
> public
> Caption: string;
> end;
>
> :)
>

Ну тогда и для Application можно свой тип написать:
TMyApplication = class private function GetExeName: String; public property ExeName: String read GetExeName; end; function TMyApplication.GetExeName: String; begin Result:=ParamStr(0); end;

clickmaker (2007-06-09 16:05:00) [2]

> А label1.caption при этом есть

type TMyLabel = class
public
Caption: string;
end;

:)

Anatoly Podgoretsky (2007-06-09 15:42:00) [3]
> Johnmen (09.06.2007 11:30:07) [7]

А label1.caption при этом есть

Johnmen (2007-06-09 11:30:00) [4]

> hahol_64_rus (09.06.07 11:09) [6]

А если Application нет?

hahol_64_rus (2007-06-09 11:09:00) [5]
label1.caption:=extractfilepath(application.exename);

Noby (2007-06-02 05:10:00) [6]

> А если Application нет?

ExtractFileDir(paramstr(0))

Wolferio (2007-06-01 10:30:00) [7]
Спасибо, вопрос снят!

Юрий Зотов (2007-06-01 10:29:00) [8]
> Noby (01.06.07 10:24) [2]

А если Application нет?

Noby (2007-06-01 10:24:00) [9]
Можно и так
ExtractFileDir(Application.ExeName)

Loginov Dmitry (2007-06-01 10:22:00) [10]
ParamStr(0)
+
ExtractFilePath

Наверх

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