unit RadKeygen;

interface
uses Classes,SysUtils,Windows;

  function fun1():string;
 

implementation

const
  iid:Integer=53;
  CSIDL_PERSONAL = $0005;
  byte1:array[0..255] of Byte=($00);
  SHFolderDll = 'SHFolder.dll';
  UUIDservice: TGUID = '{0000FFE0-0000-1000-8000-00805F9B34FB}';
  OldPropertyNames: array of string = [
    'Position.X',
    'Position.Y'
    ];
function fun1():string;

begin

end;