讨论：在我的软件运行时，使按ctrl＋shift等键无法打开输入法，或者禁止所有输入法打开、使用和显示

[myoldsaturn]

讨论：在我的软件运行时，使按ctrl＋shift等键无法打开输入法，或者禁止所有输入法打开、使用和显示

[sirous]

光是禁止使用那倒是简单
定时检测internat.exe 中止这进程

[sirous]

当然啦 想重启用输入法就执行
Winexec('internat.exe',SW_HIDE);

只不过我有一次终止internat.exe后重执行internat.exe却发现输入法照样用不了了
注销系统才起作用
不过我那次也许是系统意外 你多试试看看

[sirous]

user TlHelp32

procedure DeleteInternat;
var
p: pProcessInfo;
ContinueLoop: BOOL;
FSnapshotHandle, hProcess: THandle;
FProcessEntry32: TProcessEntry32;

begin
New(p);
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop)<>0 do
begin
p.ExeFile:= FProcessEntry32.szExeFile;
if UpperCase(p.ExeFile)='INTERNAT.EXE' then
begin
hProcess := OpenProcess(PROCESS_ALL_ACCESS, FALSE,FProcessEntry32. th32ProcessID);
TerminateProcess(hProcess,0);
end;
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

[cdsun]

用其他快捷键来影响他行不行？
我的思路