Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

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

 
Демо ©   (2010-06-01 12:01) [40]


> из проги вызовите любую процедуру и запишите через 5 сек
> лог


Почему через 5 сек., а не через 10?
Как организовано взаимодействие основного приложения и DLL?

Ответь на вопросы, а то из твоих сообщений ничего не понятно. Вообще.


 
user51   (2010-06-01 12:26) [41]

12 © СПАСИБО

это то что нужно было

procedure MMM;
begin
ShowMessage("MMM");
end;

function Text:integer; stdcall;
var
 t:tTimer;
 MyEvnt : TMethod;
begin
MyEvnt.Code := @MMM;
MyEvnt.Data := nil;
t := tTimer.Create(nil);
t.Enabled := false;
t.Interval := 9000;
t.OnTimer := TNotifyEvent(MyEvnt);
t.Enabled := true;

result := 0;
end;

это ответ на заданный вопрос


 
Демо ©   (2010-06-01 12:31) [42]


> это то что нужно было


Я бы сказал - жуть.


 
sniknik ©   (2010-06-01 12:31) [43]

> помогите человеку если можете.
какая разница могу или не могу? хочу или не хочу вот в чем вопрос... особенно за "Б О Л Ь Ш О Е    С П А С И Б О".

> Ответь на вопросы, а то из твоих сообщений ничего не понятно. Вообще.
он не может. он своим "гнутьем пальцев" загнал себя в угол, и сейчас, что бы не сказал будет противоречить сказанному ранее.

> это ответ на заданный вопрос
это очень грустно... таймаут как самоцель. я бы считал ответом решение по устранению от ошибки изза которой закрутилась вся эта "бодяга".



Страницы: 1 2 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.51 MB
Время: 0.063 c
15-1272143249
Германн
2010-04-25 01:07
2010.08.27
Не могу поверить!


2-1267530370
Fr
2010-03-02 14:46
2010.08.27
компоненты в run-time


15-1265377108
vovko26
2010-02-05 16:38
2010.08.27
С чего начать?


2-1265715158
webpauk
2010-02-09 14:32
2010.08.27
Проблема с отображением TLabel в TScrollBox


15-1264517700
Nucer
2010-01-26 17:55
2010.08.27
Proxy сервер на 1000+ соединений на Delphi с исходным кодом





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский