| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ЗАПУСК ПРОГРАММЫ [D6, D7, 2003]
Poroshm © (2007-08-04 14:20:00)Подскажите как сделать чтобы скомпилированная программа могла запускаться от перетаскивания на ее файл какого либо другого файла, требуется увиде отследить как была запущенна программа
MetalFan (2007-08-04 23:53:00) [1]а ParamCount на что?
DrPass (2007-08-04 23:12:00) [2]
> Dib@zol © (04.08.07 14:57) [4]
> for i:=1 to 20 do // На всякий пожарный
> :)
А какать ты тоже по 20 раз в сутки бегаешь, на всякий пожарный?
poroshm (2007-08-04 15:04:00) [3]Усе понял
Savek (2007-08-04 14:58:00) [4]Ну так и анализируй ParamStr:
procedure TForm1.FormCreate(Sender: TObject);
begin
If ParamStr(1)=''
then
ShowMessage('Запущена кликом')
else
ShowMessage ('Запущена с параметром '+Paramstr(1));
end;
или у тебя доступа к исходникам нет?
Dib@zol (2007-08-04 14:57:00) [5]> простым кликом или от перетащенного файла,
Проверяй так:
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 // Прога запущена по-обычному
poroshm (2007-08-04 14:48:00) [6]надо знать как была запущенна программа - простым кликом или от перетащенного файла, без создания дополнительных приложений.
Efir (2007-08-04 14:36:00) [7]Имеется ввиду определить какой файл был перетащен на значок программы?
Если да, то используй функцию ParamStr(номер параметра).
0 - путь к EXE твоей программы, далее всё остальное (напр. путь файла, кот-й был перетащен на EXE).
TUser (2007-08-04 14:31:00) [8]Ничего не надо делать, она сама запустится.
| |
