读取注册表（delphi）

 

Function readREG(xbf:WideString):WideString; var   XBFconnect:string;   XBFconn1,REGconn2,XBFconn3:string;   tempregbin:array [0..15]of char;   XBFlen:integer;   h1:THandle;   //   P : PChar;   Err : DWord;   ErrStr:string;   year,month,day,DOW:Word;   dayStr,monthStr:string;   nowdate:string;   installdate:string;   TimeLag:integer;   //2007.1.6定位密码位置   pwdCoordinate:integer; begin   myreg:=TRegistry.Create;   with myreg.Create do   begin     myreg.RootKey:=HKEY_LOCAL_MACHINE;

    if not OpenKey('SoftWareveiccps',False)then     begin       Application.MessageBox('操作系统出现问题或人为恶意改动！','OS ERROR',MB_OK);       CloseKey;       Application.Terminate;     end;     //内嵌过程start     P := pchar('yyyy-MM-dd');     if SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,P) then     begin       //     end     else     begin       Err := GetLastError;       case Err of         ERROR_INVALID_ACCESS : ErrStr:='INVALID_ACCESS