如何用程序来检测media player的版本(100分)

  • 主题发起人 主题发起人 lcl001
  • 开始时间 开始时间
L

lcl001

Unregistered / Unconfirmed
GUEST, unregistred user!
如果我在98下安装了windows media player9
如何用程序如何检测windows media player的版本
我的目的检测如果不是windows media player9的话就启动安装程序安装windows media player9
 
procedure TfrmPwd.BtnOKClick(Sender: TObject);
var result: integer;
begin
if (edtPwd1.text=edtPwd2.Text) and (edtID.text <> '') and (edtPWD.text<>'') THEN
begin
with dm.adoqry_pwd do
begin
DM.ADOqry_pwd.SQL.Text:='exec change_password :@ID,:@old_password,:@new_password,:@sult';
DM.ADOqry_pwd.Parameters.ParamByName('@ID').Value:=edtID.Text ;
DM.ADOqry_pwd.Parameters.ParamByName('@old_password').Value:=edtPWD.Text;
DM.ADOqry_pwd.Parameters.ParamByName('@new_password').Value:=edtPWD2.Text;
DM.ADOqry_pwd.open;
result:=DM.ADOqry_pwd.Parameters.ParamByName('@sult').Value;
IF (DM.ADOqry_pwd.Parameters.ParamByName('@sult').Value=1) THEN
SHOWMESSAGE('updated succefully');

end;
end;
end;
 
谢谢rocklion 但这不是我想要的
 
后退
顶部