暇だったので作ってみました。
ShellExecuteExを実行すると、shexec.14にプロセスのハンドルが返るので、
3秒間待ってから、TerminateProcessで強制終了します。
最後の CloseHandle でプロセスのハンドルを閉じます。
#uselib "kernel32.dll"
#func TerminateProcess "TerminateProcess" int, int
#func CloseHandle "CloseHandle" int
#uselib "shell32.dll"
#func ShellExecuteEx "ShellExecuteExA" var
#define SW_SHOWNORMAL 1 // 通常状態で起動
#define SEE_MASK_NOCLOSEPROCESS 0x00000040
app = "notepad.exe" // 実行するプロセス
dim shexec, 60 // SHELLEXECUTEINFO構造体
shexec.0 = 60
shexec.1 = SEE_MASK_NOCLOSEPROCESS
shexec.4 = varptr(app)
shexec.7 = SW_SHOWNORMAL
ShellExecuteEx shexec
wait 300 // 3秒間待つ
TerminateProcess shexec.14, 0 // プロセスを強制終了
CloseHandle shexec.14
print "完了."