Question

求大神把VB代码转换成Delphi代码

Dim WshShell, QQQPath
Dim s As String
Dim i
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
QQQPath = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\QQQ.exe\") ‘检测是否安装QQQ
If Err Then

MsgBox "您没有安装QQQ"

Else
i = InStrRev(QQQPath, "\") ’ 获得QQQ所在目录
GSCSPath = Left$(QQQPath, i - 1)
Shell "taskkill /f /im QQQ.exe", vbMinimizedNoFocus ‘结束QQQ.exe
Shell QQQPath & "\UninsHs.exe" ’运行卸载程序

Dim WehShell, a
Set WehShell = CreateObject("WScript.Shell")
aa = WehShell.SpecialFolders("Desktop")
Kill aa & "\QQQ.lnk" ‘删除桌面QQQ快捷方式
End If
==================================================================
==================================================================
或者大神帮写一段Delphi7代码，实现检测是否安装---结束进程---运行卸载程序---删除快捷方式，万分感激！！！！！好人又好报！明年发大财！！！

Answer 1

不会有人管你的，现在delphi已经很少人用了。能动进程的就更少了