如何调试由sendto菜单运行的应用程序启动

Question

在Windows上，我想让我的FMX应用程序从sendto上下文菜单中运行。如果应用程序已经运行，我希望第二个实例将其命令行传递到第一个，然后退出。代码在下面。问题在于，如果我在调试器中运行了一项实例，然后双击适当的文件，我没有看到第一个实例从新启动的实例接收消息。如果该应用程序尚未运行，则双击启动了预期的新实例。

有没有办法调试SendTo菜单启动的实例的启动？

此代码将应用程序添加到sendto菜单：

class procedure TInstallationController.CreateSendTo;
var
    lExePath: string;
    lObject: IUnknown;
    lSLink: IShellLink;
    lPFile: IPersistFile;
    lFolderPath: array[0..MAX_PATH] of char;
    lLinkName: WideString;
begin
    SHGetFolderPath(0, CSIDL_SENDTO, 0, 0, lFolderPath);
    lLinkName := Format('%s\%s.lnk', [lFolderPath, 'AppName']);

{$IFNDEF DEBUG}
    if String(lLinkName).Contains('debug') then
        Tfile.Delete(lLinkName);
{$ENDIF DEBUG}
    if not TFile.Exists(lLinkName) then
        if CoInitializeEx(nil, COINIT_MULTITHREADED) = S_OK then
        begin
            lExePath := ParamStr(0);
            lObject := CreateComObject(CLSID_ShellLink);
            lSLink := lObject as IShellLink;
            lPFile := lObject as IPersistFile;

            with lSlink do
            begin
                SetPath(pChar(lExePath));
                SetWorkingDirectory(PChar(TPath.GetDirectoryName(lExePath)));
            end;

            lPFile.Save(PWChar(WideString(lLinkName)), false);
        end;
end;

代码是在应用程序之前放置

var
    lWindow: HWND;
    lMutex: THandle;
    lCopyDataStruct: TCopyDataStruct;
    i: integer;
    lArg: string;
    lResult: DWORD;
begin
    lMutex := CreateMutex(nil, False, PChar('43671EDF1E5A4B419F213336F2387B0D'));
    if lMutex = 0 then
        RaiseLastOSError;
    if GetLastError = Error_Already_Exists then
    begin
        FillChar(lCopyDataStruct, Sizeof(lCopyDataStruct), 0);
        for I := 1 to ParamCount do
        begin
            lArg := ParamStr(i);
            lCopyDataStruct.cbData := (Length(lArg) + 1)*SizeOf(Char);
            lCopyDataStruct.lpData := PChar(lArg);
            lWindow := FindWindow('FMT' + STRMainWindowClassName, nil);
            SendMessageTimeout(lWindow, WM_COPYDATA, 0, NativeInt(@lCopyDataStruct),
                SMTO_BLOCK, 3000, @lResult);
        end;

        exit;
    end;
...
end.

。

...
FHwnd := FmxHandleToHwnd(Handle);
FOldWndProc := GetWindowLongPtr(FHwnd, GWL_WNDPROC);
SetWindowLongPtr(FHwnd, GWL_WNDPROC, NativeInt(@WindowProc));
...

的

function WindowProc (HWND: HWND; Msg: UINT; wParam: wParam; lParam: lParam): LRESULT; stdcall;
begin
  Result := MasterDetailView.WndProc (HWND, Msg, wParam, lParam);
end;

此 方法接收到转发的消息：

function TViewMasterDetail.WndProc(aHwnd: HWND; aMsg: UINT; aWParam: WPARAM;
    aLParam: LPARAM): LResult;
begin
    Result := 0;

    if aMsg = WM_COPYDATA then
    begin
TUtils.Log('External file: ' + PChar(PCopyDataStruct(aLParam)^.lpData));
        Viewmodel.HandleExternalFile(PChar(PCopyDataStruct(aLParam)^.lpData));
        Exit;
    end;

    result := CallWindowProc(Ptr(fOldWndProc), aHwnd, aMsg, aWParam, aLParam);
end;

TViewMasterDetail.wndproc被称为多次，但据我所知，AMSG从来都不是WM_COPYDATA。 “外部文件：”消息在日志中从未出现。谢谢

Answer 1

程序员错误。为了近似调试启动代码，我在调试器之外运行了该应用程序的副本，然后在调试器中启动了该应用程序的第二份副本，并在命令行上传递了通往目标文件的路径。这告诉我Findwindow失败了。我很久以前就写了此启动代码，从那时起，就更改了应用程序中的UI类的名称，包括主窗口。但是我忽略了我用于主窗口的类名称的常数，然后传递到Findwindow。固定常数清除了错误。只是使用文字的弊端的另一个胜利！