Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c