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

Кто знает как сделать, чтобы в контекстное меню системы...   Найти похожие ветки 

← →
Knight ©   (2004-07-30 12:14) [0]

... для исполняемух файлов добавить пункт "Запустить с параметром"? При выборе которого выводился диалог для ввода этих параметров...

---

← →
Knight ©   (2004-07-30 12:15) [1]

...для исполняемЫх... :)

---

← →
Knight ©   (2004-07-30 12:53) [2]

Sorry... кажется нашёл, что-то похожее в Demos/ActiveX/ShellExt

---

← →
Ajax ©   (2004-07-30 12:54) [3]

Напиши программу, которая единственное что делает - это отображет окно ввода и запускает программу переданную ей в первом параметре с параметром введенным в окне. Затем пропиши эту программу в реестр в ключ HKEY_CLASSES_ROOT\exefile\shell кажется сюда. Так чтобы при запуске твоей программы ей передавалось имя exe и ты сможешь водить свои параметры.

PS: если слишком сумбурно и непонятно, пиши на мыло.

---

← →
Knight ©   (2004-07-30 23:10) [4]

Господа... что такое? В ShellExecute параметры не передаются...

function TContextMenu.InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult;
resourcestring
 sPathError = "Error setting current directory";

var
 H: THandle;
 ParamStr: string;

begin
 Result := E_FAIL;
 // Make sure we are not being called by an application
 if (HiWord(Integer(lpici.lpVerb)) <> 0) then Exit;

 // Make sure we aren"t being passed an invalid argument number
 if (LoWord(lpici.lpVerb) <> 0) then begin
   Result := E_INVALIDARG;
   Exit;
 end;

 try
   ParamStr:="";
   InputQuery("Parameters","Input parameters...",ParamStr);
   H := ShellExecute(0,"open",FFileName,PChar(ParamStr), PChar(ExtractFilePath(FFileName)), SW_SHOWNORMAL);
   if (H > 32) then MessageBox(lpici.hWnd, "Error executing...", "Error", MB_ICONERROR or MB_OK);
   Result := NOERROR;
 finally
 end;
end;

---

← →
Knight ©   (2004-07-31 00:42) [5]

Всё тут правильно... не на той версии файла экспериментировал... бывает :)
Меню работает... завтра выставлю, может ещё кому пригодится :)

---

← →
Knight ©   (2004-07-31 01:09) [6]

Хотя нет... не завтра. Ещё несколько идей появилось для развития удобности... :)

---

Страницы: 1 вся ветка

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



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