用代码怎样实现出机器名称
解决方案 »
- 有若干个图片的网址,怎么用delphi实现依次下载这些图片
- 1stclass控件包中fcOutlookBar的使用疑问:OutlookListItem的TextAlignment怎么只能是居中设置?而设置为居左无效
- 各位SQL高手请帮忙看一下这个语句有何不妥的地方?
- 有的要用create,有的为什么不用
- 如何实现数字小写转换成大写的问题,请各位指教
- 如何通过程序控制让网络上的两台机器的系统时间同步?
- 如何将几个声音文件读取到内存中然后连续播放?
- 如何在dbgrid中直接修改数据并且能在所选中的那个字段中出现列表框?
- 各位大虾们请指教怎样实现键盘hook?
- delphi怎么在image上放一个图片再在图片上修改并保存
- 问两个关于ADO的问题
- 怎样用Delphi实现字符识别过程?
var lpBuffer: array[0..MAX_PATH] of char;
dwSize: DWORD;
begin
dwSize:= MAX_PATH;if not Windows.GetComputerName(lpBuffer, dwSize) then
raise
Exception.Create(SysErrorMessage(GetLastError()));
Result:= StrPas(lpBuffer);
end;
function GetUserName: AnsiString;
var lpBuffer: array[0..MAX_PATH] of char;
dwSize: DWORD;
begin
dwSize:= MAX_PATH;if not Windows.GetUserName(lpBuffer, dwSize) then
raise
Exception.Create(SysErrorMessage(GetLastError()));
Result:= StrPas(lpBuffer);end;