Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.038 c
15-1160838112
AntiUser
2006-10-14 19:01
2006.11.05
Ремарка в хелпе =)


2-1161158607
appL
2006-10-18 12:03
2006.11.05
Запись в файл текстовых данных


3-1157530675
alex_sc
2006-09-06 12:17
2006.11.05
запись и чтение GIF из MSSQL


2-1161443382
Lss
2006-10-21 19:09
2006.11.05
Проблема при считывания значение с чужого окна


3-1157371577
ANB
2006-09-04 16:06
2006.11.05
Кто понимает смысл ошибки "Таблица мутирует" ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский