我有一个与VCL应用程序绑定在一起的Delphi服务应用程序,并交换了一些,实际上是说“标志”,普通字符串。 应用程序位于同一网络上,恰好是127.0.0.1。 在Windows10上,它的运行就像是一种魅力,但是Windows 7 Starter是一个大问题,他们根本无法通信。
我试图为其添加入站/出站规则,甚至关闭了Windows防火墙,但均无法正常工作。试图授予所有人权限。
代码非常简单:
TethAppM.AutoConnect(999,'127.0.0.1');
yes:=AResource.Value.AsString;
if off=true then
begin
WriteToLog('offline');
if yes='Yes' then
begin
// Ako je odgovor potvrdan
strProgram := 'REGEDIT' ;
strProgram := strProgram + #0 ;
strCommand := '/SC /C ' + ExtractShortPathName(offlinestr) ;
strCommand := strCommand + #0 ;
ShellExecute(0,nil,@strProgram[1],@strCommand[1],nil,SW_HIDE);
IniFile.WriteString('General','EmailSent','n');
end;