void __fastcall TForm1::Button1Click(TObject *Sender)
{
  PROCESS_INFORMATION *struktura;

//  wchar_t user = 'test';
//  wchar_t pass = 'test';

  CreateProcessWithLogonW((wchar_t *)"test", NULL, (wchar_t *)"test",
                          0, (wchar_t *)"C:\\Windows\\System32\\cmd.exe", NULL,
                          (ULONG)"0", NULL, NULL, NULL, struktura);
  ShowMessage(SysErrorMessage(GetLastError()));
}