[Michael Cessna]

It worked! Here’s the code, using Delphi:

function GetBeginPeakTime: TTime;
var
vRegistry : TRegistry;
vTimeVal : Integer;
vHour : Word;
vMin : Word;
vSec : Word;
vMSec : Word;
begin
Result := 0;
vRegistry := TRegistry.Create;
try
vRegistry.RootKey := HKEY_LOCAL_MACHINE;
vRegistry.Access := KEY_READ;
if vRegistry.OpenKeyReadOnly(‘SOFTWAREDelrinaWinFax7.0Peak Times’) then
begin
vTimeVal := vRegistry.ReadInteger(‘BeginPeakTime’); { Do not localize. }
if vTimeVal > 0 then
begin
vHour := (vTimeVal and &#36F800) shr 11;
vMin := (vTimeVal and &#3607E0) shr 5;
vSec := (vTimeVal and &#36001F) shl 1;
vMSec := 0;
Result := EncodeTime(vHour, vMin, vSec, vMSec);
end;
end;
finally
vRegistry.Free;
end;
end;

function GetEndPeakTime: TTime;
var
vRegistry : TRegistry;
vTimeVal : Integer;
vHour : Word;
vMin : Word;
vSec : Word;
vMSec : Word;
begin
Result := 0;
vRegistry := TRegistry.Create;
try
vRegistry.RootKey := HKEY_LOCAL_MACHINE;
vRegistry.Access := KEY_READ;
if vRegistry.OpenKeyReadOnly(‘SOFTWAREDelrinaWinFax7.0Peak Times’) then
begin
vTimeVal := vRegistry.ReadInteger(‘EndPeakTime’); { Do not localize. }
if vTimeVal > 0 then
begin
vHour := (vTimeVal and &#36F800) shr 11;
vMin := (vTimeVal and &#3607E0) shr 5;
vSec := (vTimeVal and &#36001F) shl 1;
vMSec := 0;
Result := EncodeTime(vHour, vMin, vSec, vMSec);
end;
end;
finally
vRegistry.Free;
end;
end;

Thank you!

Mike

[Michael Cessna]

Awesome, I’ll give it a go!

Thanks.

Mike

[Michael Cessna]

Thank you for your help.

[Michael Cessna]

Does this mean it only has to be rebuilt once?…or must it be rebuilt each time someone selects a default cover page, other than the default pages defined on installation?

Thanks.

Mike

[Michael Cessna]

Thanks. Since I’m having to integrate WinFax into a commercial application, the solution posted can’t be used, but I appreciate it. What I ended up doing was create a counter from 1..1000 and then when I get an access violation, I know I’ve come to the end of the list. This is very ugly, indeed, but since the WinFax stuff is broke, there’s very little one can do. If the WinFax stuff used standard COM collections it would be much easier.

[Author]

Posts