請問我如何限制特定的 exe 檔只能被某個程式執行?

編輯記錄

主程式和子程式都是你寫的吧!

主程式用Shellexectue(handle, 'open', pchar('子程式.exe'),'使用者 密碼',nil,nil,shownormal);

子程式內容如下:
procedure Tform1.OnCreate(Tobject:sender);
begin
if paramcount >= 2 then begin
if (paramstr(1) <> '使用者') or (paramstr(2) <> '密碼')
showmessage('沒有使用權限');
close;
end;
end
else begin
showmessage('參數不足');
close;
end;
end;

------
努力會更接近成功

假如子程式不是自己的呢?

以下的案子和你的需求很像，而且相對，但你的達成可能比較高，內容好像有講到你要的方式。

Delphi K.Top討論區 » Object Pascal物件導向討論區(Delphi) » 如何限制 EXE 程式,只能被其它程式叫用
http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=94146

------
努力會更接近成功

借用 rootkit 的代碼

function GetProcessParentID(PHandle: DWORD):DWORD;
var
Info : TProcessBasicInformation;
begin
Result := 0;
if PHandle=0 then Exit;

ZeroMemory(@info,SizeOf(info));
if NtQueryInformationProcess(PHandle, ProcessBasicInformation, @Info, sizeOf(Info), nil) = 0 then Result := Info.ParentPID;
end

不過如果是要寫入 dll 中那 uses 底下要加入甚麼參數?

自己補完：

[code delphi]
type
TProcessBasicInformation = record
ExitStatus :Integer;
PebBaseAddress :Pointer;
AffinityMask :DWORD;
BasePriority :Integer;
PID :DWORD;
ParentPID :DWORD;
end;

TNtProcessInfoClass = (ProcessBasicInformation,
ProcessQuotaLimits,
ProcessIoCounters,
ProcessVmCounters,
ProcessTimes,
ProcessBasePriority,
ProcessRaisePriority,
ProcessDebugPort,
ProcessExceptionPort,
ProcessAccessToken,
ProcessLdtInformation,
ProcessLdtSize,
ProcessDefaultHardErrorMode,
ProcessIoPortHandlers,
ProcessPooledUsageAndLimits,
ProcessWorkingSetWatch,
ProcessUserModeIOPL,
ProcessEnableAlignmentFaultFixup,
ProcessPriorityClass,
MaxProcessInfoClass);

TPDword = ^DWORD;

var
_NtQueryInformationProcess : function (ProcessHandle : DWORD;
InfoClass : TNtProcessInfoClass;
Buffer : Pointer;
BufSize : DWORD;
ReturnSize : TPDword) : DWORD; stdcall;

Function NtQueryInformationProcess(ProcessHandle : DWORD;
InfoClass : TNtProcessInfoClass;
Buffer : Pointer;
BufSize : DWORD;
ReturnSize : TPDword) : DWORD;
var
NtDll: THandle;
begin
if not Assigned(_NtQueryInformationProcess) then
begin
NtDll := GetModuleHandle(PChar('ntdll.dll'));
if NtDll <> 0 then _NtQueryInformationProcess := GetProcAddress(NtDll,'NtQueryInformationProcess');
end;
if Assigned(_NtQueryInformationProcess)
then Result := _NtQueryInformationProcess(ProcessHandle,InfoClass,Buffer,BufSize,ReturnSize)
else Result := DWORD($C0000000); {ERROR_SEVERITY_ERROR 隨便帶一個錯誤 }
end;
[/code]