Что нового
  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Show our notification to the application through the server

Lomanu4

Команда форума
Администратор
Регистрация
1 Мар 2015
Сообщения
1,184
Баллы
155



Код:
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, Vcl.ExtCtrls, Vcl.AppEvnts, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    IdHTTP1: TIdHTTP;
    TrayIcon1: TTrayIcon;
    ApplicationEvents1: TApplicationEvents;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure ApplicationEvents1Minimize(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   notific:string;
implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
ShowWindow(Handle, SW_HIDE);
  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE) or (not WS_EX_APPWINDOW));
    TrayIcon1.Visible:=True;
    TrayIcon1.BalloonTitle:=('Application is hided') ;
    TrayIcon1.BalloonHint:=('You text');
    TrayIcon1.ShowBalloonHint;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if timer1.Enabled=True then
begin
  notific:=IdHTTP1.Get('http://lomanu4.at.ua/notific.txt');
  Form1.TrayIcon1.BalloonHint:=(notific);
  TrayIcon1.ShowBalloonHint;
  TrayIcon1.Visible:=True;
end;
end;

end.
 
Последнее редактирование:

triamera977

Homo habilis
Принятый Кодер
Регистрация
27 Апр 2015
Сообщения
81
Баллы
60
Возраст
30
Местоположение
Калининград
Сайт
kil39.ru
Здравствуйте. Подскажите, пожалуйста, как все-таки сделать, чтоб уведомление всплывало, только когда оно изменится на сервере. Спасибо!
 

Lomanu4

Команда форума
Администратор
Регистрация
1 Мар 2015
Сообщения
1,184
Баллы
155
Здравствуйте. Подскажите, пожалуйста, как все-таки сделать, чтоб уведомление всплывало, только когда оно изменится на сервере. Спасибо!
Посмотрите видео блокировка приложения,на моем канале, там нужно создавать свои команды и записывать в условие,если нне будет понятно пишите.
 
Вверх