ЗАПУСК ПРОГРАММЫ

← →
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]

Усе понял

> Dib@zol © (04.08.07 14:57) [4]

> for i:=1 to 20 do // На всякий пожарный
> :)

А какать ты тоже по 20 раз в сутки бегаешь, на всякий пожарный?

а ParamCount на что?

ЗАПУСК ПРОГРАММЫ Найти похожие ветки