Вниз
Скачать: CL | DM;

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

← →
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$\


← →
Ega23 ©   (2006-05-26 18:52) [8]


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


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


← →
umbra ©   (2006-05-26 19:05) [9]

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


← →
Ega23 ©   (2006-05-26 19:15) [10]


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


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



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

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



Память: 0.47 MB
Время: 0.027 c
5-1133352457
jonny210
2005-11-30 15:07
2006.06.11
Нужно вытащить их TWebBrowser HTML код


2-1148528778
lobach
2006-05-25 07:46
2006.06.11
Html страницы


2-1148669632
NE$MO
2006-05-26 22:53
2006.06.11
Скины на дельфя


1-1146505428
Sysanin
2006-05-01 21:43
2006.06.11
защита от принт скрина


15-1148048657
vidiv
2006-05-19 18:24
2006.06.11
sin(x) = sqrt(2)/2




   Наверх