Обращение к Классификатору ЕСКД из Си.

[SergLL]

В Справке Классификатора ЕСКД есть пример вызова на Delphi.
Как оформить аналогичный вызов в Си?

TYPE

TFuncTets = FUNCTION(ApplHandle : THandle; var wsTets : PChar) : boolean; stdcall;

CONST DLLName='CLASS2.DLL';

VAR
Handle : THandle;
GetESKDCode : TFuncTets;
wsTest : PCHAR; // в эту переменную возвращается код

BEGIN
  Handle := LoadLibrary(DLLName);
IF ( Handle <> 0 ) THEN
  BEGIN
    @GetESKDCode :=GetProcAddress( Handle, 'GetESKDCode' );
    IF (Assigned( GetESKDCode )) THEN
    BEGIN
     GetESKDCode(Application.Handle,wsTest);
     MessageDlg('Выбран код '+wsTest, mtInformation, [mbOK],0)
     END;
    FreeLibrary( Handle )
end
    ELSE
     MessageDlg('Не найдена библиотека '+DLLName, mtError, [mbOK],0)
end;