Исходники WinAPI

[vova65]

Здравствуйте!
Подскажите пожалуйста где можно раздобыть исходники win api?? если такие существуют в свободном плавании нетом.... или какой-то аналог..?
мне нужно > допустим есть функция DrawText.......вот мне и интересно посмотреть как она реализована и поковырять ее...

Извените если я не туда написал или я такой слепой что их не нашел!!!
Заранее спасибо!

[QunneD]

function DrawText; external user32 name 'DrawTextA';

Включайте IDA Pro и анализируйте user32.dll.

Или же как вариант, написать мини-приложение без мусора, с динамической подгрузкой DrawTextA, и затем аналогично IDA Pro проанализировать интересующий кусок.

[rpy3uH]

Сообщение от vova65

Подскажите пожалуйста где можно раздобыть исходники win api??

это тоже самое что получить исходники Windows

[StIX-S]

На сколько я знаю, часть исходников виндовс 2000 есть в интернете. Ещё можно посмотреть иходники ReactOS.

[vova65]

спасибо всем! как нибудь на досуге поковыряю ReactOS и исполняемый код Windows...

[vova65]

собственно еще один вопрос не совсем по теме но он относится в функции DrawText...
я написал функцию для подсчета строк выводимого текста только с учетом пробелов (без учета использовании перевода строки #13 ) функцией DrawText...

function ChPr1(DC:HDC; p:pChar; w:integer):integer;
var c,c1,z:integer;
    s:pChar;
    sz:size;
    f:Boolean;
begin
  c:=CharPos(' ',0,p);
  if c=0 then
   result:=1
  else
  begin
  result:=0;
  z:=0;
  s:=p;
   while c<>0 do
   begin
   c1:=CharPos(' ',c,p);
   if c1>0 then begin
   GetTextExtentPoint32(DC,s,c1-z,sz);
   if sz.cx>=w then
   begin
   s:=p;
   z:=c;
   inc(s,c);
   f:=false;
   inc(result);
   end else f:=true;
   end else if f then inc(result);
   c:=c1;
   end;
  end;
end;

вспомогательная функция

function CharPos(z:Char; i:integer; p:pChar):integer;
begin
 result:=i;
 inc(p,i);
 while p^<>#0 do
 begin
  inc(result);
  if p^=z then exit;
  inc(p);
 end;
 result:=0;
end;

вопрос: как можно функцию ChPr1 оптимизировать для более быстрой обработки ее ПК??? или здесь уже нечего оптимизировать?
и это я случайно не собираю велосипед наново с привинчиванием запчастей от трактора???

[s-andriano]

А что должна делать эта функция?

[vova65]

А что должна делать эта функция?

считать количество строк выводимого текста функцией DrawText.. при условии что в тексте нет переходов (#13) на новую строку.. а только визуальные символы и пробелы..

[vova65]

решение нашлось такое:

DrawText(DC,@sd,CharLeng(@sd),r,DT_CALCRECT or DT_WORDBREAK or DT_EDITCONTROL);
DrawText(DC,@sd,CharLeng(@sd),r, DT_WORDBREAK or DT_EDITCONTROL);
GetTextExtentPoint32(DC,@sd,1,sz);
showmessage(inttostr((r.Bottom-r.Top) div sz.cy)); - количество строк

может кто-то подкинуть алгоритм или готовый код который подсчитает количество строк (строки переносятся по пробелам) которые ограничены максимальной шириной(тойсть максимальная ширина одной строки допустим 20 пикселей)?

моя функция ChPr1 практически с задачей справляется.. только там есть некоторые траблы с выявлением последней строки... в связи с чем на 1 строку в ряде случае функция врет!!