我编写了这个实用程序 (exe)，可以从这个主机应用程序中调用它。 而且我更希望该实用程序只能从主机应用程序中调用。 从外部或其他主机运行它应该立即终止该实用程序。
有没有办法找出哪个进程启动了我的实用程序？
感谢您的回复。
【问题讨论】：
您可以使用CreateToolhelp32Snapshot 函数枚举正在运行的进程列表，然后使用Process32First 函数获取th32ParentProcessID，它是创建此进程（其父进程）的进程的标识符。
看这个例子。
uses
Psapi,
Windows,
tlhelp32,
SysUtils;
function GetTheParentProcessFileName(): String;
const
BufferSize = 4096;
var
HandleSnapShot : THandle;
EntryParentProc : TProcessEntry32;
CurrentProcessId: DWORD;
HandleParentProc: THandle;
ParentProcessId : DWORD;
ParentProcessFound : Boolean;
ParentProcPath : String;
begin
ParentProcessFound := False;
HandleSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //enumerate the process
if HandleSnapShot <> INVALID_HANDLE_VALUE then
begin
EntryParentProc.dwSize := SizeOf(EntryParentProc);
if Process32First(HandleSnapShot, EntryParentProc) then //find the first process
begin
CurrentProcessId := GetCurrentProcessId(); //get the id of the current process
repeat
if EntryParentProc.th32ProcessID = CurrentProcessId then
begin
ParentProcessId := EntryParentProc.th32ParentProcessID; //get the id of the parent process
HandleParentProc := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ParentProcessId);
if HandleParentProc <> 0 then
begin
ParentProcessFound := True;
SetLength(ParentProcPath, BufferSize);
GetModuleFileNameEx(HandleParentProc, 0, PChar(ParentProcPath),BufferSize);
ParentProcPath := PChar(ParentProcPath);
CloseHandle(HandleParentProc);
end;
break;
end;
until not Process32Next(HandleSnapShot, EntryParentProc);
end;
CloseHandle(HandleSnapShot);
end;
if ParentProcessFound then
Result := ParentProcPath
else
Result := '';
end;
【讨论】：
如果该 guid 不是传递给您的实用程序的参数的一部分，我会添加一个您只知道的额外参数（它可以是一个 guid）。立即终止应用程序。
【讨论】：
您的问题的快速回答是“嗯，不，您不能阻止应用程序被执行”。如果它是可执行文件，则可以执行。没有办法阻止它。
而且，如果您无法控制应用程序（正如您的 cmets 所指出的那样），那么 Gs 的出色建议将不起作用，对吧？您无法控制应用程序的功能，也无法控制它对您的特殊命令行的反应。
所以这确实呈现了一个有趣的情况。
我看到的唯一方法是完全阻止对 EXE 的访问，或者至少使其难以找到。
你可以这样做：
不漂亮，但这是我能想到的唯一方法，以防止 EXE 按您的条件运行并且仅按您的条件运行。
【讨论】：
我们使用了一种相当简单的技术，只需要几行代码。父应用程序和实用程序应用程序使用一些常见的 GUIID 字符串（在代码中）并调用 RegisterWindowMessage 来创建一种“Hello”握手协议。当实用程序首次启动时，它会发布该消息。如果父应用程序正在运行，并且确实启动了该实用程序，它会发布响应消息，该实用程序可以看到并且一切正常。如果没有，该实用程序将超时并退出。
【讨论】：
如果此应用程序仅在主机内部运行，为什么不将应用程序的表单包含在主应用程序中，然后像激活另一个表单一样激活它？
【讨论】：