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

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

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

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

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