10 lines
234 B
ObjectPascal
10 lines
234 B
ObjectPascal
|
unit userscript;
|
||
|
|
|
||
|
|
function Process(e: IInterface): Integer;
|
||
|
|
begin
|
||
|
|
if GetElementNativeValues(e, 'Record Header\Record Flags\Compressed') <> 0 then
|
||
|
|
SetElementNativeValues(e, 'Record Header\Record Flags\Compressed', 0);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|