Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Krinkels

Пользователь


Сообщения: 90
Благодарности: 22

Профиль | Отправить PM | Цитировать


ryabis
Код: Выделить весь код
function VerQueryValue(pBlock: Pointer; lpSubBlock: PAnsiChar; var lplpBuffer: Pointer; var puLen: UINT): BOOL; external 'VerQueryValueA@version stdcall delayload'
А первую наверное придется в ручную писать, кусок из дельфи:
Код: Выделить весь код
function AllocMem(Size: Cardinal): Pointer;
begin
  GetMem(Result, Size);
  FillChar(Result^, Size, 0);
end;

-------
Рок моя честь, а моя честь моя жизнь. krinkels.org


Отправлено: 19:17, 21-03-2011 | #1100