难道这个问题真的没有人能解嘛？？？？？？？？？？？？或者说是没有答案。。。 (50分)

请各位大虾帮助，怎么对某个DOS下的应用程序进行控制，使它不能运行，一运行就报错。
比如禁掉，超级玛丽。谢谢

给你参考一下。另外我刚搞了个类似这样的软件。要的话EMAIL给你。
使用createprocess函数创建进程调用应用程序，同时使用waitforsignleobject等待进程结束。在此处理所给为32位版本。
function ExecAndWait(const Filename, Params: string; WindowState: word):
boolean;
var
SUInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLine: string;
begin
CmdLine:=filename+' '+params;
FillChar(SUInfo, SizeOf(SUInfo), #0);
with SUInfo do
begin
cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := WindowState;
end;
Result := CreateProcess(NIL, PChar(CmdLine), NIL, NIL, FALSE,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, NIL,
PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);
if Result then
begin
//等待应用程序结束
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
//删除句柄
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
end;

Key: [HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/WinOldApp]
Value Name: Disabled
Data Type: REG_DWORD
Data: (0 = disable, 1 = enable)

禁用MSDOS方式不可以吗？

好啊，suwle@yahoo.com.cn,thank you ,搜到就给分！，

禁DOS方式的话，如果有人练习WT的话，怎么办，欢迎大家讨论！

请问，还有没有人会这个问题，谢谢

可能要用一个程序监控，判断主文件是否存在，如果存在就终止。
终止可以设为注销windows.

对啊，是要用程序监控关键是怎么捕捉这个DOS程序的特征，它不象WIN32程序，还是没有讲
到关键真的没有答案嘛！！！！！！！！！！！！！！！