Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function PostMessage Lib "user32" Alias "PostM...
procedure TfrmTopJdsMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if MessageDlg('您好,关闭此插件,将导致【订单全链路】不能正常使用!请确认是否关闭?',mtConfirmation,[mbYes,mbNo],0)...
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head> <t...