пара вопросов

← →
Adios © (2006-05-26 18:26) [0]

как можно посчитать количество символов в строке включая пробелы?
как узать запущенали программа из корня диска?

← →
Ega23 © (2006-05-26 18:28) [1]

> как можно посчитать количество символов в строке включая
> пробелы?

Length(aString);

> как узать запущенали программа из корня диска?

Что такое "корень диска"?

← →
Adios © (2006-05-26 18:30) [2]

корень диска это "C:\моя программа"

← →
umbra © (2006-05-26 18:31) [3]

> как узать запущенали программа из корня диска?
>

if Length(ExtractFilePath(Application.ExeName)) = 3 then //программа запущена из корня диска

← →
Ega23 © (2006-05-26 18:34) [4]

> корень диска это "C:\моя программа"

Вот, предположим, у меня есть директория E:\Temp\.
И, предположим, букву диска C: я заменил на K:
Теперь запускаю в cmd-shell команду subst c: e:\temp
И появляется у меня логический диск C. Который, на самом деле, и вовсе не С, а E:\Temp.

Так что ты уж определись...

← →
Ega23 © (2006-05-26 18:35) [5]

>
> if Length(ExtractFilePath(Application.ExeName)) = 3 then
> //программа запущена из корня диска

Ага. И запускалась программа \\DBSrv1\Share\myprog.exe

← →
Ega23 © (2006-05-26 18:36) [6]

> Ага. И запускалась программа \\DBSrv1\Share\myprog.exe

Точнее, \\DBSrv1\C$\myprog.exe

← →
umbra © (2006-05-26 18:45) [7]

2 Ega23 © (26.05.06 18:36) [6]

ExtractFilePath(\\DBSrv1\C$\myprog.exe) = \\DBSrv1\C$\

> ExtractFilePath(\\DBSrv1\C$\myprog.exe) = \\DBSrv1\C$\

А запустил - из корня. :о)

а правда запускали? или чисто теоретически? когда я запустил на своем компе прогу, зайдя через сетевое окружение, то она мне показала локальный путь, а не сетевой.

> а правда запускали? или чисто теоретически? когда я запустил
> на своем компе прогу, зайдя через сетевое окружение, то
> она мне показала локальный путь, а не сетевой.

Только что проверил. Чисто сетевой. И ShowMessage(ParamStr(0)) и ShowMessage(Application.exeName)

пара вопросов Найти похожие ветки