Форум: "Начинающим";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];
Вниз
ЗАПУСК ПРОГРАММЫ Найти похожие ветки
← →
Poroshm (2007-08-04 14:20) [0]Подскажите как сделать чтобы скомпилированная программа могла запускаться от перетаскивания на ее файл какого либо другого файла, требуется увиде отследить как была запущенна программа
← →
TUser © (2007-08-04 14:31) [1]Ничего не надо делать, она сама запустится.
← →
Efir © (2007-08-04 14:36) [2]Имеется ввиду определить какой файл был перетащен на значок программы?
Если да, то используй функцию ParamStr(номер параметра).
0 - путь к EXE твоей программы, далее всё остальное (напр. путь файла, кот-й был перетащен на EXE).
← →
poroshm (2007-08-04 14:48) [3]надо знать как была запущенна программа - простым кликом или от перетащенного файла, без создания дополнительных приложений.
← →
Dib@zol © (2007-08-04 14:57) [4]> простым кликом или от перетащенного файла,
Проверяй так:
function FileExists(s:string):boolean;
begin
Result:=GetFileAttributes(PChar(s))<>INVALID_HANDLE_VALUE;
end;
...
for i:=1 to 20 do // На всякий пожарный :)
if FileExists(ParamStr(i)) then // Прога запущена "по файлу"
else // Прога запущена по-обычному
← →
Savek (2007-08-04 14:58) [5]Ну так и анализируй ParamStr:
procedure TForm1.FormCreate(Sender: TObject);
begin
If ParamStr(1)=""
then
ShowMessage("Запущена кликом")
else
ShowMessage ("Запущена с параметром "+Paramstr(1));
end;
или у тебя доступа к исходникам нет?
← →
poroshm (2007-08-04 15:04) [6]Усе понял
← →
DrPass © (2007-08-04 23:12) [7]
> Dib@zol © (04.08.07 14:57) [4]
> for i:=1 to 20 do // На всякий пожарный
> :)
А какать ты тоже по 20 раз в сутки бегаешь, на всякий пожарный?
← →
MetalFan © (2007-08-04 23:53) [8]а ParamCount на что?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.038 c
