*******如何控制QQ的动行?******

Question

*******如何控制QQ的动行?******有没有什么方法控制QQ是否可以使用?
也就是说用自己的程序可以实现允许使用QQ,和不允许使用QQ!
希望高手指教!

Answer 1

to  lgqTiger(把酒论程序__尽在笑谈间) 
能不能说明白点呀!
没有高手在吗?

Answer 2

前些天看到一段代码，忘了是谁的。你用下面这个方法找到QQ，就是pressID填QQ.exe,找到就结束他。打开就可以用Createprocess
function FindProcessName(PressID:String):THandle;    //PressID就是文件名
var
  Ok:boolean;
  ProcessListHandle: THandle;
  ProcessStruct: TProcessEntry32;
  Path:string;
  Pressname:string;
begin
try
  result:=0;
  ProcessListHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcessStruct.dwSize := Sizeof(ProcessStruct);
  ok := Process32First(ProcessListHandle, ProcessStruct);
    while Integer(ok) <> 0 do
    begin
      if UPPERCASE(PressName)=UPPERCASE(PressID) then
      begin
        result:=ProcessStruct.th32ProcessID;
        break;
      end;
    ok := Process32Next(ProcessListHandle, ProcessStruct);
    end;
finally
  CloseHandle(ProcessListHandle);
end;
end;