Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

пара вопросов [D7, XP]


Adios ©   (2006-05-26 18:26:00) 

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


Ega23   (2006-05-26 19:15:00) [1]


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


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


umbra   (2006-05-26 19:05:00) [2]

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


Ega23   (2006-05-26 18:52:00) [3]


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


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


umbra   (2006-05-26 18:45:00) [4]

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

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


Ega23   (2006-05-26 18:36:00) [5]


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


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


Ega23   (2006-05-26 18:35:00) [6]


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


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


Ega23   (2006-05-26 18:34:00) [7]


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


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

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


umbra   (2006-05-26 18:31:00) [8]


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

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


Adios   (2006-05-26 18:30:00) [9]

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


Ega23   (2006-05-26 18:28:00) [10]


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


Length(aString);


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


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


Наверх

Титульная страница Поиск, карта сайта Написать письмо