(defvar designer-exec (concat (getenv "QTDIR") "/bin/designer"))

(defun designer-open-ui-file ()
  (interactive)
  (defvar procname "designer")
  (start-process procname nil designer-exec "-style" "windows" "-client" buffer-file-name)
)

(defun designer-create-ui-file (&optional arg)
  (interactive "FNew UI-File: ")
  (find-file arg)
  (insert "<UI></UI>")
  (save-buffer)
  (designer-open-ui-file)
)

;(global-set-key [f7] 'designer-open-ui-file)
;(global-set-key [f8] 'designer-create-ui-file)