Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Установить или получить статус Off-Line
{
Users can choose to work offline by selecting Work Offline on the
File menu in Internet Explorer 4.0 and later. When Work Offline is selected,
the system enters a global offline state independent of any current network
connection, and content is read exclusively from the cache.
}
uses wininet;
// Get offline state
// Alhaiseb Misurata Libya
function IsGlobalOffline: Boolean;
var
State, Size: DWORD;
begin
Result := False
;
State := 0;
Size := SizeOf(DWORD);
if
InternetQueryOption(nil
, INTERNET_OPTION_CONNECTED_STATE, @State, Size) then
if
(State and
INTERNET_STATE_DISCONNECTED_BY_USER) <> 0 then
Result := True
;
end
;
//Set offline state
procedure SetGlobalOffline(fGoOffline: Boolean);
var
ci: INTERNET_CONNECTED_INFO;
begin
if
fGoOffline then
begin
ci.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER;
ci.dwFlags := ISO_FORCE_DISCONNECTED;
end
else
ci.dwConnectedState := INTERNET_STATE_CONNECTED;
InternetSetOption(nil
, INTERNET_OPTION_CONNECTED_STATE, @ci, SizeOf(ci));
end
;