help_run.prg

VFP编写的某银行代发财政局工资管理系统。 仅供学习研究参考

DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND, STRING,;
       STRING lpszFile,STRING ,STRING ,INTEGER 
public username,usercomp,titletime
declare integer RegOpenKeyEx in Win32API;
integer nkey,string @csubkey,integer nreserved,;
integer naccessmask,integer @nresult
declare integer RegQueryValueEx in Win32API;
integer nkey,string cvaluename,integer nresered,;
integer @ntype,string @cbuffer,integer @nbuffersize
declare integer RegCloseKey in Win32API;
integer nkey
username=""
usercomp=""
lnresult=0
buffer=space(128)
buffersize=len(buffer)
lnerror=regopenkeyex(-2147483646,"Software\microsoft\windows\currentversion",0,1,@lnresult)
if lnerror=0
lntype=0
buffer=space(128)
buffersize=len(buffer)
lnerror=regqueryvalueex(lnresult,"registeredowner",0,@lntype,@buffer,@buffersize)
if lnerror=0 and buffer<>chr(0)
username=left(buffer,buffersize-1)
endif
lntype=0
buffer=space(128)
buffersize=len(buffer)
lnerror=regqueryvalueex(lnresult,"registeredorganization",0,@lntype,@buffer,@buffersize)
if lnerror=0 and buffer<>chr(0)
usercomp=left(buffer,buffersize-1)
endif
endif
=regclosekey(lnresult)
lpszFile='salary.txt' 
*设定你需要发送的E-mail 

=ShellExecute(0,0,lpszFile , 0,0,1) 
clea dlls
  *调用ShellExecute函数