[Delphi]/[Pascal] Задай вопрос, получи ответ

#11

01.06.2007, 01:15

Joker-jar

Постоянный

Регистрация: 11.03.2007

Сообщений: 581

С нами: 10088966

Репутация: 646

Значит так в двух словах. Открываешь делфню - там проект пустой. Сохраняешь его в папку какую-нибудь. Потом выполняешь файл - создать - другое - объект потока. В классе написать можно что-нибудь типа TMyThread. Создастся новый модуль с методом Execute - то, что должно выполняться в потоке. Для теста можно всунуть что-нибудь, что должно занять пару секунд на выполнение, например winexec(какая-нибудь большая прога, sw_show). Этот модуль подключаешь к проекту и сохраняешь в ту же папку. В проекте делаешь кнопку, на ней событие, например такое

Код:

var
  potok: TMyThread;
begin
  potok := TMyThread.Create(true);
  potok.Resume;
  messagebox(handle,'хай','xaй',mb_iconerror or mb_ok);
end;

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

З.Ы. Если поток что-то с интерфейсом проги мутит, нужно синхронизацию юзать

З.З.Ы. Я лично апишками потоки мучу, имхо удобней