afro228offical

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TMyThread = class(TThread) public sCaption: string; // переменная, принимающая текст, который будет выставлен форме procedure Execute; override; end;var Form1: TForm1; MyThread: TMyThread;implementation{$R *.dfm}procedure TMyThread.Execute;begin Form1.Caption := Self.sCaption;end;procedure TForm1.Button1Click(Sender: TObject);begin MyThread := TMyThread.Create(True); // создаем поток, но не запускаем with MyThread do // означает, что следующий код будет выполняться от имени экземпляра потока begin sCaption := 'Кнопка 1'; // текст заголовка FreeOnTerminate := True; // указываем, чтобы поток уничтожился при завершении Resume; // запускаем поток вручную end;end;procedure TForm1.Button2Click(Sender: TObject);begin MyThread := TMyThread.Create(True); // создаем поток, но не запускаем with MyThread do // означает, что следующий код будет выполняться от имени экземпляра потока begin sCaption := 'Кнопка 2'; // текст заголовка FreeOnTerminate := True; // указываем, чтобы поток уничтожился при завершении Resume; // запускаем поток вручную end;end;end.

Попробую сделать мини-калькулятор через потоки...

Поздравляю Xipho )

Идея непременно хорошая , но я пока попробую adwcleaner ...

Удалил "куки из всех браузеров через "CCLEANER" , но ничего не изменилось( расширение после удаления продолжает появляться...

ХЗ, прост отключил , вроде не мешает...

Предлагаю создать отдельный раздел по борьбе с компьютерной нечистью ... Но вряд ли кому, понравится моя идея...

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TMyThread = class(TThread) public sCaption: string; // переменная, принимающая текст, который будет выставлен форме procedure Execute; override; end;var Form1: TForm1; MyThread: TMyThread;implementation{$R *.dfm}procedure TMyThread.Execute;begin Form1.Caption := Self.sCaption;end;procedure TForm1.Button1Click(Sender: TObject);begin MyThread := TMyThread.Create(True); // создаем поток, но не запускаем with MyThread do // означает, что следующий код будет выполняться от имени экземпляра потока begin sCaption := 'Кнопка 1'; // текст заголовка FreeOnTerminate := True; // указываем, чтобы поток уничтожился при завершении Resume; // запускаем поток вручную end;end;procedure TForm1.Button2Click(Sender: TObject);begin MyThread := TMyThread.Create(True); // создаем поток, но не запускаем with MyThread do // означает, что следующий код будет выполняться от имени экземпляра потока begin sCaption := 'Кнопка 2'; // текст заголовка FreeOnTerminate := True; // указываем, чтобы поток уничтожился при завершении Resume; // запускаем поток вручную end;end;end.

Поможет кто?

Я хочу сделать так , чтобы при нажатии на одну кнопку изменялось название формы на "1 имя" , а при нажатии на другую название менялось на "2 имя" Но у меня не выходит... P.S. занубил...( unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, SyncObjs; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TMyThread = class(TThread) private { Private declarations } protected procedure Execute; override; procedure UpdateCaption; procedure qUpdateCaption; end; var Form1: TForm1; MyThread: TMyThread; qMyThread: TMyThread; implementation {$R *.dfm} procedure TMyThread.UpdateCaption;begin Form1.Caption:='2 имя';end; procedure TMyThread.qUpdateCaption;begin Form1.Caption:='1 имя';end; procedure TMyThread.Execute;begin Synchronize(UpdateCaption);end; procedure TForm1.Button1Click(Sender: TObject);begin MyThread:=TMyThread.Create(False); MyThread.Priority:=tpNormal; MyThread.FreeOnTerminate:=true;end; procedure TForm1.Button2Click(Sender: TObject);begin qMyThread:=TMyThread.Create(False); qMyThread.Priority:=tpNormal; qMyThread.FreeOnTerminate:=true;end; end.

Всем огромное спасибо, обязательно воспользуюсь вашими советами)

Я её юзал , даже в самых безвыходных ситуациях ... Но не знаю поможет ли в этот раз... Есть 100% способ избавиться от любого вируса... Качаем утилиту кидаем на флешку , запускаем ПК в безопасном режиме , запускаем и ждём пока про сканирует...

да , отключил , всё норм... Завтра , когда буду врубать комп гляну... Если ничего не изменилось , то слетит adblock ... Уже пятый раз его переустанавливаю ...

Сейчас попробую...

От ненужных процессов избавился, нашёл папку с этой фигнёй и удалил , но расширение всегда появляется снова...

в том-то и дело , что там ничего нет...(

В последнее время в расширениях google chrome я начал находить это: Много раз пытался удалить , но при перезапуске браузера это расширение появляется снова... Что делать? Как быть? Помогите оч прошу... P.S. замечал подозрительные процессы в диспетчере, но всё удалил и убрал из авто запуска , но это расширение постоянно появляется..

"Неизвестное значение" в помощь...

Зачем? Мы же ломаем только оффлайн игры...

Супер... Нет слов...

Но исходник бы...

круто!

От нешты можно легко избавиться , поищи в яндексе, или сделай откат системы... Если не помогает , напиши мне в лс..

Хочу поделиться , завтра залью , ждите...

у меня есть исходник...