QTP调用外部dll的例子

【转载】

dll (VC++6.0)，没用 MFC ,直接调用 WINDOWS API 实现的

*************************************************
WINDLL_API int killprocess(char * processname)
{
      
HANDLE hSnapshot,hProcess;
int flag;
int eqflag=0;
long int pid=-1;
hSnapshot=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
PROCESSENTRY32* processInfo=new PROCESSENTRY32;
processInfo->dwSize=sizeof(PROCESSENTRY32);
    flag=Process32First(hSnapshot,processInfo);
while(flag!=0)
{
eqflag=0;
    for(int j=0;processInfo->szExeFile[j]!='\0';j++)
{
      
if(processInfo->szExeFile[j]!=processname[j])
  eqflag=1;
  
}
//printf("%d\n",eqflag);
if(eqflag==0)
    {
     pid=processInfo->th32ProcessID;
     hProcess=OpenProcess(PROCESS_ALL_ACCESS,TRUE,pid);
     TerminateProcess(hProcess,0);
     
}
flag=Process32Next(hSnapshot,processInfo);
}
CloseHandle(hSnapshot);
//printf("%d",pid);
if(pid==-1)
return 0;
    //printf("%d",hProcess);
return 1;

}
*********************************************************

Qtp中调用的方法：

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Extern.Declare micInteger,"killprocess","C:\windll.dll","",micString
rs=Extern.killprocess("QQ.exe")
msgbox rs