begin if MessageDlg('服务器上最新程序版本:'+serversion+',是否更新程序?'+#10+'更新程序前若需要保存数据,请点击NO,'+#10+'保存数据后关闭该系统再打开它'+#10+'如不需要保存数据直接点yes立即进行更新。', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin HWndEx := FindWindow(nil,nil); While (HWndEx > 0 )do begin GetWindowText(HWndEx,str1,255); HWndEx := GetNextWindow(hwndex,GW_HWNDNEXT); end; ShellExecute(handle,'open', Pchar(g_path+'myftp.exe'), nil, nil, SW_SHOWNORMAL); end else begin ; end; end else /////////////////////////////////////////////////////////////////////////// begin ShellExecute(handle,'open', Pchar('C:\\ORANT\\BIN\\F50RUN32.EXE '), Pchar('d:\\mxlist\\mx_list_start.fmx'), nil, SW_SHOWNORMAL);
////////////////////////////////////////////////////////////////////////// end;//end if StrToFloat(serversion) > StrToFloat(version) then
if MessageDlg('服务器上最新程序版本:'+serversion+',是否更新程序?'+#10+'更新程序前若需要保存数据,请点击NO,'+#10+'保存数据后关闭该系统再打开它'+#10+'如不需要保存数据直接点yes立即进行更新。',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
HWndEx := FindWindow(nil,nil);
While (HWndEx > 0 )do
begin
GetWindowText(HWndEx,str1,255);
HWndEx := GetNextWindow(hwndex,GW_HWNDNEXT);
end; ShellExecute(handle,'open', Pchar(g_path+'myftp.exe'), nil, nil, SW_SHOWNORMAL);
end
else
begin
;
end;
end
else
///////////////////////////////////////////////////////////////////////////
begin ShellExecute(handle,'open', Pchar('C:\\ORANT\\BIN\\F50RUN32.EXE '), Pchar('d:\\mxlist\\mx_list_start.fmx'), nil, SW_SHOWNORMAL);
//////////////////////////////////////////////////////////////////////////
end;//end if StrToFloat(serversion) > StrToFloat(version) then