RegCreateKeyExA

function RegCreateKeyExA(

  hKey: HKEY;

  lpSubKey: LPCSTR;

  Reserved: DWORD;

  lpClass: LPSTR;

  dwOptions: DWORD;

  samDesired: REGSAM;

  lpSecurityAttributes: LPSECURITY_ATTRIBUTES;

  var phkResult: HKEY;

  lpdwDisposition: LPDWORD

):LONG;