Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.05;
Скачать: CL | DM;

Вниз

Как получить путь к программе?   Найти похожие ветки 

 
nporaMep ©   (2006-10-23 01:48) [0]

Здравствуйте, необходимо составить путь из путя до программы плюс поддиректория для передачи explorer.exe, чтобы открыть папку в проводнике. Подскажите как можно получить путь до программы или как это можно сделать другим способом.


 
RASkov   (2006-10-23 01:51) [1]

ExtractPath, ExtractDir
(ParamStr(0));
(Application.ExeName);


 
Eraser ©   (2006-10-23 01:51) [2]

> [0] nporaMep ©   (23.10.06 01:48)


> Подскажите как можно получить путь до программы

до какой программы? переформулируй вопрос.


 
nporaMep ©   (2006-10-23 01:54) [3]

Пишу программу autorun.exe для диска. На диске есть папки "папка1", "папка2". В программе на 2-х кнопках соответственно должно выполняться открытие "папка1" в проводнике и "папка2" в проводнике.
На одном компьютере диск может быть d:\, на другом e:\ например. Собственно нужно получать путь до этого autorun.exe.


 
Gero ©   (2006-10-23 02:10) [4]

Уже ответили.


 
RASkov   (2006-10-23 02:15) [5]

Если узнать диск
ExtractFileDrive(ParamStr(0));


 
nporaMep ©   (2006-10-23 02:26) [6]

С путём разобрался, сделал строку класса String, но в ShellExecutable дельфи требует параметр FileName класса PAnsiChar.

ShellExecute (Form1.Handle, nil, a, nil, nil, SW_RESTORE);
a это String
a="explorer.exe f:\папка1"

Выдает:
[Error] Unit1.pas(51): Incompatible types: "String" and "PAnsiChar"


 
Eraser ©   (2006-10-23 02:32) [7]

> [6] nporaMep ©   (23.10.06 02:26)


> сделал строку класса String

в Делфи string это не класс.
ShellExecute(Form1.Handle, nil, PChar(a), nil, nil, SW_RESTORE);



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

Текущий архив: 2006.11.05;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.068 c
15-1161010468
oldman
2006-10-16 18:54
2006.11.05
Вчера вычитал, откуда пошло слово "спам"...


8-1143964344
MeF Dei Corvi
2006-04-02 11:52
2006.11.05
VST + Delphi


15-1161179190
pasha_golub
2006-10-18 17:46
2006.11.05
Stunnel & mail clent


8-1143547847
kmi
2006-03-28 16:10
2006.11.05
Как изменить бинарный файл?


6-1150485886
anton773
2006-06-16 23:24
2006.11.05
отловит начало закачки файла