如何知道在程序中获取MSDE安装完成(100分)

问题已解决,不知道怎么结帖...MSDE安装调用了子进程,如果只判断查找Setup.exe运行的进程,显然不能达到目的,只要在进程列表里再查找下有没有进程的父进程是运行Setup.exe运行的进程即可,不过仅仅局限于子进程没有再调用子进程的情况.
定义一个私有变量dwProcessID
第一个函数是用来获取运行程序的进程ID,参数oExename为exe文件的路径
第二个函数是通过查找进程的方法来检测安装程序有没有安装完成,
代码如下,有些变量需要自己去定义,单元自己引用
function TForm1.GetProcessID(oExeNameAnsiChar):Cardinal;
var
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
FillChar(StartupInfo,SizeOf(StartupInfo),#0);
StartupInfo.cb:=SizeOf(StartupInfo);
StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow:=SW_SHOWNORMAL;
if CreateProcess(nil,oExeName,nil,nil,false,Create_new_console or Normal_priority_class,nil,nil,StartupInfo,ProcessInfo) then
dwProcessID := processinfo.dwProcessId ;
Result:= dwProcessID;
end;

function TForm1.FindProcess: Boolean;
var
hSnapshot: THandle;//用于获得进程列表
lppe: TProcessEntry32;//用于查找进程
Found: Boolean;//用于判断进程遍历是否完成
begin
Result:=False;
hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);//获得系统进程列表
lppe.dwSize:=SizeOf(TProcessEntry32);//在调用Process32First API之前，需要初始化lppe记录的大小
Found := Process32First(hSnapshot, lppe);//将进程列表的第一个进程信息读入ppe记录中
while Founddo
begin
if (lppe.th32ProcessID=dwProcessID) or (lppe.th32ParentProcessID=dwProcessID) then
begin
Result:=True;
Exit;
end;
Found := Process32Next(hSnapshot,lppe);//将进程列表的下一个进程信息读入lppe记录中
end;
end;

把分我就可以结贴了，分不能收回。

100分，2人分。帖子可以收藏。

多人接受答案了。