怎么得到TStream给span里面添加内容的内容

来源：蜘蛛抓取(WebSpider) 时间：2015-04-02 09:51 标签： tstream
怎样用Delphi得到BIOS数据
procedure TForm1.BiosIconstSubkey: string = ’’Hardwaredescriptionsystem’’;varhkSB: HKEY;rType: LongIValueSize, OrigSize: LValueBuf: array[0..1000]procedure ParseValueBuf(const VersionType: string);varI, Line: CS:begini := 0;Line := 0;while ValueBuf[i] && #0 dobeginS := StrPas(@ValueBuf[i]); // move the Pchar into a stringInc(Line);Memo1.Lines.Append(Format(’’%s Line %d = %s’’,[VersionType, Line, S])); // add it to a Memoinc(i, Length(S) + 1); // to point to next sz, or to #0 if atendbeginif RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar(Subkey), 0, KEY_READ, hkSB) = ERROR_SUCCESS thentryOrigSize := sizeof(ValueBuf);ValueSize := OrigSrType := REG_MULTI_SZ;if RegQueryValueEx(hkSB, ’’SystemBiosVersion’’, nil, @rType,@ValueBuf, @ValueSize) = ERROR_SUCCESS thenParseValueBuf(’’System B Version’’);ValueSize := OrigSrType := REG_SZ;if RegQueryValueEx(hkSB, ’’SystemBIOSDate’’, nil, @rType,@ValueBuf, @ValueSize) = ERROR_SUCCESS thenMemo1.Lines.Append(’’System BIOS Date ’’ + ValueBuf);ValueSize := OrigSrType := REG_MULTI_SZ;if RegQueryValueEx(hkSB, ’’VideoBiosVersion’’, nil, @rType,@ValueBuf, @ValueSize) = ERROR_SUCCESS thenParseValueBuf(’’Video BIOS Version’’);ValueSize := OrigSrType := REG_SZ;if RegQueryValueEx(hkSB, ’’VideoBIOSDate’’, nil, @rType,@ValueBuf, @ValueSize) = ERROR_SUCCESS thenMemo1.Lines.Append(’’Video BIOS Date ’’ + ValueBuf);finallyRegCloseKey(hkSB); 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
【精品】JAVA中如何得到文件路径
下载积分：750
内容提示：【精品】JAVA中如何得到文件路径
文档格式：DOC|
浏览次数：3|
上传日期： 11:16:18|
文档星级：
全文阅读已结束，如果下载本文需要使用
 750 积分
下载此文档
该用户还上传了这些文档
【精品】JAVA中如何得到文件路径
官方公共微信安全检查中...
请打开浏览器的javascript，然后刷新浏览器
< 浏览器安全检查中...
还剩 5 秒&

我要回帖

更多关于 tstream 的文章

 

随机推荐