Delphi应用程序与Windows 7的网络共享-问题

时间:2019-06-26 13:48:20

标签: delphi windows-services tethering

我有一个与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;

0 个答案:

没有答案