不同版本的 Delphi 7 程序已部署在不同的服务器上。 为了帮助解决报告的错误，我正在尝试编写一个函数来识别程序运行的服务器。
以下代码获取本地计算机名称。
sbAll.Panels.Items[1].Text := 'Server: ' + GetEnvironmentVariable('COMPUTERNAME');
假设程序的绝对路径为:
\\Swingline\Programs\Folder\Program.exe
无论从哪台计算机上运行，如何让它返回Server: Swingline？
最佳答案
您可以使用Application.ExeName，用斜杠将其分割并获取第二个元素...
关于delphi - 识别运行 Delphi 7 程序的服务器，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/15284922/