Программа - маленький посредник. С какой стороны лучше подойти?

[Ship_1]

Сообщение от Аватар

Так и предлагаю убрать

Ага, и я уже ответил: спасибо за мысль.
К слову: а чем это будет по сути отличаться от консольного приложения без "{$APPTYPE CONSOLE}"?

[GreyScall]

Причём тут вообще "службы"?

Сообщение от Аватар

Да, визуальное окно есть, но не создается.

Не будет окон, если их не создавать.

Сообщение от Ship_1

а чем это будет по сути отличаться

В "консольном приложении" создаётся и показывается окно консоли.

Вот вам полный алгоритм действий:

1. Menu > File > New > Application [ или VCL Forms Application ]
2. Вкладка Unit1 > Правый клик > Close Page > "Save changes to Unit1.pas?" > No
3. Menu > Project > View Source

Видим примерно такое:

program Project1;

uses
  Forms; [ или Vcl.Forms; ]

{$R *.res}

begin
  Application.Initialize;
[ тут может быть Application.MainFormOnTaskbar := True; ]
  Application.Run;
end.

Модуль Forms вам явно не нужен. Удаляем лишнее, пишем своё:

Program
      Project1;

Uses
      {$IFDEF CONDITIONALEXPRESSIONS}
            {$IF CompilerVersion < 23.0}
                  Windows,
                  Messages,
                  ActiveX,
                  ShellAPI,
                  SysUtils
            {$ELSE}
                  Winapi.Windows,
                  Winapi.Messages,
                  Winapi.ActiveX,
                  Winapi.ShellAPI,
                  System.SysUtils
            {$IFEND}
      {$ELSE}
            Windows,
            Messages,
            ActiveX,
            ShellAPI,
            SysUtils
      {$ENDIF};

Var
      DefaultExecInfo: TShellExecuteInfo;

Procedure InitGlobalVars();
Begin
FillChar(DefaultExecInfo, SizeOf(DefaultExecInfo), 0);
With DefaultExecInfo Do
      Begin
      cbSize:=SizeOf(DefaultExecInfo);
      Wnd:=0;
      lpVerb:=Nil;
      lpFile:=Nil;
      lpParameters:=Nil;
      lpDirectory:=Nil;
      nShow:=SW_SHOWNORMAL;
      fMask:=SEE_MASK_FLAG_NO_UI Or
            {$IFDEF CONDITIONALEXPRESSIONS}
                  {$IF CompilerVersion < 23.0} //TODO: Check/Fix Version ID
                        SEE_MASK_FLAG_DDEWAIT
                  {$ELSE}
                        SEE_MASK_NOASYNC
                  {$IFEND}
            {$ELSE}
                  SEE_MASK_FLAG_DDEWAIT
            {$ENDIF};
      {$IFDEF UNICODE}
            fMask:=fMask Or SEE_MASK_UNICODE;
      {$ENDIF}
      End;
End;

Procedure OpenURL(Const URL: String);
Begin
DefaultExecInfo.lpFile:=PChar(URL);
{$WARN SYMBOL_PLATFORM OFF}
Win32Check(ShellExecuteEx(@DefaultExecInfo));
{$WARN SYMBOL_PLATFORM ON}
End;

Procedure MainProc();
Var i: Integer; URL: String;
Begin
InitGlobalVars();
For i:=1 To ParamCount Do
      Begin
      URL:='https://yandex.ru/search/?text='+ExtractFileName(ParamStr(i));
      OpenURL(URL);
      End;
End;

Begin
If (ParamCount=0) Then
      Begin
      MessageBox(0, 'Error: No Params!', 'Error', MB_OK Or MB_ICONERROR);
      Exit;
      End;
CoInitializeEx(Nil, COINIT_APARTMENTTHREADED Or COINIT_DISABLE_OLE1DDE);
Try
      MainProc();
Finally
      CoUninitialize();
      End;
End.