主程序2.bak

来自「一个简单的零售系统,功能不是太强大,一般适合便利店自用还可以,本人没有实际应用测」· BAK 代码 · 共 21 行

_screen.Visible=.f.
Private lcIniFile,lcHeader,lcEntry,lcBuffer
  lcIniFile="system.ini"
  lcHeader="SYSTEMINFO"
  lcEntry="TITLE"

DECLARE INTEGER GetPrivateProfileString IN Win32API  AS GetPrivStr ;
  String cSection, String cKey, String cDefault, String @cBuffer, ;
  Integer nBufferSize, String cINIFile
lcBuffer = space(10) + chr(0)
=GETPrivstr("SYSTEMINFO", "TITLE", "",@lcBuffer, LEN(lcBuffer),"SYSTEM.INI")


systmp=NEWOBJECT("SysTray","SysTray.vcx")
systmp.IconFile = "icon.ico"
systmp.TipText 	= lcBuffer
systmp.MenuText = "Systry.mpr"
systmp.MenuTextIsMPR = .T.
systmp.AddIconToSystray()
systmp.showballoontip("欢迎您,请登陆!",lcBuffer,1,1)