Форум: "Начинающим";
Текущий архив: 2007.07.01;
Скачать: [xml.tar.bz2];
ВнизЗапуск программы Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.07.01;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c