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

Запуск программы   Найти похожие ветки 

← →
Wolferio ©   (2007-06-01 10:15) [0]

Как определить откуда запущена моя программа (из какой папки)

---

← →
Loginov Dmitry ©   (2007-06-01 10:22) [1]

ParamStr(0)
+
ExtractFilePath

---

← →
Noby   (2007-06-01 10:24) [2]

Можно и так
ExtractFileDir(Application.ExeName)

---

← →
Юрий Зотов ©   (2007-06-01 10:29) [3]

> Noby   (01.06.07 10:24) [2]

А если Application нет?

---

← →
Wolferio ©   (2007-06-01 10:30) [4]

Спасибо, вопрос снят!

---

← →
Noby   (2007-06-02 05:10) [5]

> А если Application нет?


ExtractFileDir(paramstr(0))

---

← →
hahol_64_rus   (2007-06-09 11:09) [6]

label1.caption:=extractfilepath(application.exename);

---

← →
Johnmen ©   (2007-06-09 11:30) [7]

> hahol_64_rus   (09.06.07 11:09) [6]

А если Application нет?

---

← →
Anatoly Podgoretsky ©   (2007-06-09 15:42) [8]

> Johnmen  (09.06.2007 11:30:07)  [7]

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

---

← →
clickmaker ©   (2007-06-09 16:05) [9]

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


type TMyLabel = class
public
 Caption: string;
end;

:)

---

← →
Германн ©   (2007-06-09 16:36) [10]

> 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;



---

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

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



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