If I subst with default values compiler error as before.
Here is the declaration:
function RegStatus(var TrialDays:word; var Key:string;License: string): Boolean;
Then the proc:
function Tmainform.RegStatus(var TrialDays:word; var Key:string;License: string):
Boolean;
var INIfile: Tinifile;
guid, Rcode: string;
Today, EndDay: Integer;
function GetLicense: string;
var Reg: TRegistry;
VersionInfo: TOSVersionInfo;
begin
Result := '';
VersionInfo.dwOSVersionInfoSize := sizeOf(TOSVersionInfo);
GetVersionEx(VersionInfo);
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
case VersionInfo.dwPlatformID of
VER_PLATFORM_WIN32_WINDOWS: begin
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', TRUE);
result := Reg.ReadString('ProductID');
end;
VER_PLATFORM_WIN32_NT: begin
Reg.OpenKey('\Software\Microsoft\Windows NT\CurrentVersion', TRUE);
result := Reg.ReadString('ProductID');
end;
end;
end;
begin
//proc code follows here
end;
NM> post soem code. I assume you are calling the reg check
NM> first with the parameters and subsequently without, I'm not sure why you
NM> are using vars
_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi
