D1P
|
 Posted: Wed Jan 31, 2007 19:14 Post subject: |
 |
|
Проблема, как любят говорить связисты, "на вашей стороне". Вот такой бесхистростный код
| Code: |
Procedure MyThreadProc;
var
i:LongInt;
Begin
i:=0;
While True do
begin
SetWindowText(FindWindow ('TTOTAL_CMD',nil),pchar(IntToStr(i)));
sleep (1000);
inc (i);
end;
End;
function FsInit(PluginNr:integer;pProgressProc:tProgressProc;pLogProc:tLogProc;
pRequestProc:tRequestProc):integer; stdcall;
Begin
CreateThread(nil, 0, @MyThreadProc, nil, 0, thID);
MessageBox (FindWindow ('TTOTAL_CMD',nil),'Поток создан','',0);
End;
|
у меня работает великолепно.
Сначала грешил, что какие-то используемые переменные могли быть обьявлены локально - но нет, как их не обьявляй, всё работает.
_________________
База знаний о Total Commander
Блог |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
