ファイルの削除 - xDeviceFileDelete

Define_Com Class(#xDeviceFileDelete) Name(#FileDeleter)

Evtroutine Handling(#COM_OWNER.Initialize)
  #Delete.Enabled := false
Endroutine

Evtroutine Handling(#FileDeleter.Initialize)
  #Delete.Enabled := true
Endroutine

Evtroutine Handling(#Delete.Click)
  #FileDeleter.FileName := '/recipes/strawberryMousse'
  #FileDeleter.Delete()
Endroutine

Evtroutine Handling(#FileDeleter.Completed) Status(#returnedStatus) Message(#message)
  #Status := #returnedStatus
  If (#Status <> OK)
    #StatusMessage := #message
  Endif
Endroutine