Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.09;
Скачать: CL | DM;

Вниз

Worse, it is a general bug!   Найти похожие ветки 

 
thaddy   (2005-10-19 19:58) [0]

Vladimir,

My previous post hints to a far more serious issue:

The use of  GetThreadPriorityBoost break win9X compatibility!
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

I suggest:

 if (WinVer => WvNT) and (GetThreadPriorityBoost( fHandle, B )) then
   Result := B;


 
thaddy   (2005-10-19 20:03) [1]



function TThread.GetPriorityBoost: Boolean;
var B: Bool;
begin
 Result := TRUE;
 if fHandle = 0 then Exit;
 if (WinVer >= WvNT) and GetThreadPriorityBoost( fHandle, B ) then
   Result := B;
end;

procedure TThread.SetPriorityBoost(const Value: Boolean);
begin
 if fHandle = 0 then Exit;
 if (WinVer >= WvNT) and SetThreadPriorityBoost( fHandle, not Value );
end;


 
thaddy   (2005-10-19 20:06) [2]

Sorry, I have a flue:


function TThread.GetPriorityBoost: Boolean;
var B: Bool;
begin
 Result := TRUE;
 if fHandle = 0 then Exit;
 if (WinVer >= WvNT) then // only evaluate if this is true, regardless of evaluation settings
   if GetThreadPriorityBoost( fHandle, B ) then
     Result := B;
end;

procedure TThread.SetPriorityBoost(const Value: Boolean);
begin
 if fHandle = 0 then Exit;
 if WinVer >= WvNT then
     SetThreadPriorityBoost( fHandle, not Value );
end;



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

Текущий архив: 2006.07.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.095 c
1-1148563500
yahaha
2006-05-25 17:25
2006.07.09
Курсор в WebBrowser


11-1129737524
thaddy
2005-10-19 19:58
2006.07.09
Worse, it is a general bug!


2-1150176880
Rezya
2006-06-13 09:34
2006.07.09
DBGride


3-1147407297
apl
2006-05-12 08:14
2006.07.09
Записи в таблице и даты создания файлов.


2-1150447898
ANB
2006-06-16 12:51
2006.07.09
Как при отправке письма через TIdSMTP указать кодировку письма ?