但是,与Java相同的是,一个结构体可以实现接口(interface)
申请条件
1、通过文案或广场审核的移动应用、站内应用、专业版应用、网站接入应用;
2、应用功能需要使用该高级接口且申请理由充分、有效;
3、应用符合平台各项协议与规范;
4、应用无作恶、违规等不良记录;
如何申请
点击“我的应用”进入“控制台”
p1.jpg
在“接口管理”标签中选择“申请权限”,根据您的应用开发需要勾选申请高级接口,我们会在3个工作日内审核完毕。您会收到微博通知和邮件反馈申请结果。申请时请详细填写申请理由,包括:应用功能介绍、运营推广策略、改进目标等。 希望我的回答对你有用。
你好,这个需要动手能力强,如下仅供参考
1:可以调用RegSetValueEx()函数写入值项类型和值项数值,函数原型为:
RegSetValueEx(
HKEY hKey,//打开当前句柄,也可以是注册表五个根键之一
LPCTSTR lpValueName,//字符串类型指针,指向设置键值的值项名称
LPDWORD lpReserved,//保留置,通常为0
DWORD dwType,//要设置键值项数值的类型
const BYTE *lpData,//指向设置的数值所在的缓冲区指针,如果不想设置可设为NULL
DWORD cbData);//指定lpData数据的缓冲区的长度,以字节为单位
需要注意的是,要是这个函数正确执行需要打开这个注册表键时设置相应的权限,就是调用函数是RegOpenKeyEx或者RegCreateKeyEx时设置其具有可写权限,(参数samDesired必须具有KEY_SET_VALUE、KEY_WRITE或者KEY_ALL_ACCESS属性之一)
举个例子吧:
(1)向HKEY_CURRENT_USER\SoftWare\mingrisoft下bin键值写入REG_DWORD类型数据:
HKEY key;
DWORD dispos;//创建返回1,打开返回2
CString skey="SoftWare\\mingrisoft";
SECURITY_ATTRIBUTES sa;
sa.nLength=sizeof(SECURITY_ATTRIBUTES);
sa.bInberitHandle=TRUE;
sa.lpSecurityDescriptor=NULL;
DWORD value=1;
long iret=RegCreateKeyEx(HKEY_CURRENT_USER,skey,0L,"",REG_OPTION_NON_VOLATILE,
KEY_ALL_ACCESS,&sa,&key,&dispos);
if(iret==0)
iret=RegSetValueEx(key,"bin",0,REG_DWORD,(BYTE*)&value,sizeof(DWORD));
if(iret==0)
MessageBox("成功","提示",MB_OK);
RegCloseKey(key);
else
CString strerr;
strerr.Format("函数返回值%d",iret);
MessageBox(strerr,"出错",MB_OK);
else
CString strerr;
strerr.Format("函数返回值%d",iret);
MessageBox(strerr,"出错",MB_OK);
(2)向HKEY_CURRENT_USER\SoftWare\mingrisoft下str键值写入REG_SZ类型数据:
HKEY key;
CString skey="SoftWare\\mingrisoft";
RegOpenKey(HKEY_CURRENT_USER,skey,&key);
CString strdata=" www.microsoft.com";
RegSetValueEx(key,"str",0,REG_SZ,(BYTE*)strdata.GetBuffer(0),strdata.GetLength());
RegCloseKey(key);
2:用spyrWin的工具,可以直接生成DELPHI代码
3:通过系统函数GetClassNameA,Process32Next获取窗口类名和进程信息
也可以试试用查找窗口的方法。DELPHI7.0编译通过.
procedure TMainForm.BtnJcClick(Sender: TObject);
Pid:dword; //进程ID
hProcess:cardinal;
begin
hwd:=FindWindow(nil,pchar('QQ'));
if hwd=0 then
begin
//messagebox(mainform.Handle,'未加载!','错误',MB_OK+MB_ICONINFORMATION);
Label1.Caption:='目标未运行!!';
Exit;
else
Label1.Caption:='发现目标进程!';
GetWindowThreadProcessId(hwd,@pid);
hProcess:= OpenProcess(PROCESS_VM_READ, False,pid);//取的读权限
If hProcess = 0 Then
begin
Label1.Caption:='不能打开目标!!';
CloseHandle(hProcess);
Exit;
end;
edtHwd.Text:='窗体句柄:'+inttostr(hwd);
edtPid.Text:='进程ID:'+inttostr(pid);
edtPro.Text:='进程句柄:'+inttostr(hProcess);
CloseHandle(hProcess);
不可以的,各个软件所使用的接口及数据传输载体是不一样的,除非为兼容。
文章为作者独立观点,不代表股票交易接口观点