procedure TFmMain.Button1Click(Sender: TObject);
var
 res : Integer;
 opr,fle,prm,dir:string;
begin
 opr := 'open';
 fle := 'cmd.exe';
 prm := '/c chcp 1251 && gpresult.exe /R > c:\temp\gpr.txt';
 dir := 'c:\windows\system32';
 res := ShellExecute(Handle,PChar(opr),PChar(fle),PChar(prm),PChar(dir),SW_NORMAL);
 if (res <= 32) then begin
   case res of
     0,                      // The operating system is out of memory or resources.
     ERROR_BAD_FORMAT,
     SE_ERR_ACCESSDENIED,
     SE_ERR_ASSOCINCOMPLETE,
     SE_ERR_DDEBUSY,
     SE_ERR_DDEFAIL,
     SE_ERR_DDETIMEOUT,
     SE_ERR_DLLNOTFOUND,
     SE_ERR_FNF,
     SE_ERR_NOASSOC,
     SE_ERR_OOM,
     SE_ERR_PNF,
     SE_ERR_SHARE: Halt;
   end;
 end else Caption:='Ok {42} !';
end;