Install Shield安装包制作技巧（API篇）

Install Shield可以使用API函数。它内置了一些API函数，如SetWindowLong，可以指定包含文件Winapi.h，如下：

#include "Winapi.h"

对于另外一些winapi.h文件不指供的API，就需要通过DLL文件引用，如下例：

强行结束进程

prototype POINTER KERNEL32.GlobalLock(POINTER);

prototype BOOL KERNEL32.GlobalUnlock(POINTER);

prototype INT KERNEL32.GlobalFree(POINTER);

prototype INT KERNEL32.GlobalAlloc(INT, INT);

prototype LONG user32.GetWindowThreadProcessId(HWND, POINTER);

prototype LONG KERNEL32.TerminateProcess(HWND, INT);

prototype LONG KERNEL32.OpenProcess(INT, BOOL, INT);

//强行结束进程

prototype KillProcess(HWND);//窗口句柄

function KillProcess(hWnd)

POINTER pPid;

int result;

POINTER hg;

HWND ps;

begin

hg = GlobalAlloc(8192, 32);

pPid = GlobalLock(hg);

result = GetWindowThreadProcessId(hWnd, pPid);

if result then

ps = OpenProcess(1, FALSE, *pPid);

TerminateProcess(ps, -9);

GlobalUnlock(hg);

GlobalFree(hg);

endif;

end;