Delphi 7 程序的不同版本已部署在各种服务器上。为了帮助解决报告的错误,我正在尝试编写一个函数来识别程序从哪个服务器运行。
以下代码为我获取本地计算机名称。
sbAll.Panels.Items[1].Text := 'Server: ' + GetEnvironmentVariable('COMPUTERNAME');
假设程序的绝对路径为:
\\Swingline\Programs\Folder\Program.exe
Server: Swingline
无论它是从哪台计算机上运行的,我如何让它返回?