BuddyAPI kullanarak cd den pdf açtırıyorum.

on mouseUp me
  baShell( 'open', the moviePath & 'acrobat\AcroRd32.exe', the moviePath & 'pdf\kitap_1.pdf' , '', 'normal')
end

pdf’yi şifreleyip – tekrar açmak istiyorum.

elimde bu script var ama nasıl kullanacağımı bilmiyorum. yardımcı olursanız sevinirim.

-- custom properties -- 
property folderlist,theFile,subfolders,fileslist,keyorpass,whereto 

------ Get Behavior Description List ------ 
on getPropertyDescriptionList me 
  fileslist=getfilelist(me) 
  set description = [:] 
  addProp description, #theFile, [#format:#String, #comment: 'Encrypt/Decrypt Which File ?', #range:fileslist,#default:fileslist[1]] 
  addProp description, #keyorpass, [#format:#String, #comment: 'Your Key/Password? ', #default:'Enter Your Key here.'] 
  if the currentspritenum = 0 then 
    addProp description, #WhereTo, [#comment: 'Where To Attach ?' ,#format:#String, 
    #range:['On EnterFrame','On ExitFrame'],#default:'On EnterFrame'] 
  else 
    addProp description, #WhereTo, [#comment: 'Where To Attach ?' ,#format:#String, 
    #range:['On MouseUp','On MouseDown','On MouseEnter','On MouseLeave'],#default:'On MouseUp']     
  end if     
  return description 
end getPropertyDescriptionList 
------ Get Behavior Description List ------ 

-- Get Behavior description -- 
on getBehaviorDescription 
  return 'This Behavior Encrypts/Decrypts a file. ' & RETURN & 
'Actually It toggles Encrypt/Decrypt.' & RETURN & RETURN & 
  'Make sure you have the file you want to encrypt/decrypt is in current folder or subfolders upto level 2. ' & RETURN & RETURN & 
  'This Behavior needs Buddy API Xtra to work, so please ensure You Have Buddy API Xtra.' & RETURN & RETURN & 
  'Parameters' & RETURN & 
  '* File.' & RETURN & 
  '* Key/password.' & RETURN & 
  '* Where to attach this Script' 
end 
-- Get Behavior description -- 

---- get the file name to be opened ---- 
on getfilelist me 
  set mypath=the moviepath 
  set fileslist=[] 
  set Folders = baFolderList( mypath ) 
  set Files = baFileList( mypath ,'*.*') 
  repeat with M=1 to Files.count 
    fileslist.append(files[m]) 
  end repeat 
  repeat with i = 1 to folders.count 
    set subfolders = baFolderList( mypath & '' & folders[i]) 
    if subfolders.count <> 0 then 
      repeat with j=1 to subfolders.count 
        set Files = baFileList( mypath & ' ' &  folders[i] & '' & subfolders[j],'*.*') 
        repeat with k=1 to Files.count 
          fileslist.append(folders[i] & '' & subfolders[j] & '' & files[k]) 
        end repeat 
      end repeat 
      set Files = baFileList( mypath & ' ' &  folders[i],'*.*')     
      repeat with j=1 to Files.count 
        fileslist.append(folders[i] & '' & files[j]) 
      end repeat     
    else 
      set Files = baFileList( mypath & ' ' &  folders[i],'*.*') 
      repeat with j=1 to Files.count 
        fileslist.append(folders[i] & '' & files[j]) 
      end repeat 
    end if       
  end repeat 
  return fileslist 
end 
---- get the file name to be opened ---- 

-- Events -- 
on EnterFrame me 
  if WhereTo = 'On EnterFrame' then 
    openfile 
  end if 
end EnterFrame 

on ExitFrame me 
  if WhereTo = 'On EnterFrame' then 
    encryptordecrypt 
  end if 
end ExitFrame 

on MouseUp 
  if WhereTo = 'On MouseUp' then 
    encryptordecrypt 
  end if 
end MouseUp 

on MouseDown 
  if WhereTo = 'On MouseDown' then 
    encryptordecrypt 
  end if 
end MouseDown 

on MouseEnter 
  if WhereTo = 'On MouseEnter' then 
    encryptordecrypt 
  end if 
end MouseEnter 

on MouseLeave 
  if WhereTo = 'On MouseLeave' then 
    encryptordecrypt 
  end if 
end MouseLeave 
------ Events ------ 

---Encrypt/Decrypt a File --- 
on encryptordecrypt 
  if keyorpass <> '' then 
    set OK = baEncryptFile( the moviepath & thefile , keyorpass ) 
  else 
    alert 'Please Enter Your Key' 
  end if 
end 
---Encrypt/Decrypt a File --- 

.