x
Wystarczy, że lekko przerobisz tą funkcję:
[code]{ sprawdza połączenie z internetem }
function Connected: Boolean;
var
Flags:DWORD;
begin
Flags:=INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;
Result:=InternetGetConnectedState(@Flags, 0);
end;[/code]
Jeżeli chodzi o drugie pytanie to sposoby są różne: od zwykłego e-mail po specjalne progsy na serwerze. Wszystko zależy od inwencji danej firmy (producenta).
niestety nie działa mi ten kod :(
[Error] Unit1.pas(26): Undeclared identifier: 'INTERNET_CONNECTION_MODEM'
[Error] Unit1.pas(26): Undeclared identifier: 'INTERNET_CONNECTION_LAN'
[Error] Unit1.pas(27): Undeclared identifier: 'INTERNET_CONNECTION_PROXY'
[Error] Unit1.pas(27): Undeclared identifier: 'INTERNET_CONNECTION_MODEM_BUSY'
[Error] Unit1.pas(28): Undeclared identifier: 'InternetGetConnectedState'
;)
uses WinSock; lub jeszcze jakieś inne unity, al na pewno nazwa zgadza się z helpem delphi/WindowsSDK
może ktoś jednak zobaczyć, jakie tam trzeba unity (mam super delphi z KŚ - bez delphi6.hlp ;)).
z góry dzięki