Я делаю так:

ctdir = string(today(),'dd-mm-yyyy')+'_'+string(now(),'hh-mm-ss')

ls_tempDir = SPACE(ll_bufferLength)

IF GetTempPath(ll_bufferLength, ls_tempDir) = 0 THEN
MessageBox("Temp папка не визначена", "Файл відкрито не буде.")
return -1
END IF

ls_tempDir = ls_tempDir +ctdir+'\'
CreateDirectory ( ls_tempDir )

..Создали папку во временной директории и туда выгружаем все файлы


потом запускаем программу просмотра их
Файл откроется в программе по умолчанию которая назначена в винде для просмотра его

string ls_Null
long ll_rc
string ls_err_str
long ll_last_error
Any temp
CONSTANT long FORMAT_MESSAGE_FROM_SYSTEM = 4096

SetNull(ls_Null)

ll_rc = ShellExecuteA( Handle( This ), "open", &
ls_tempdir+cfilename, ls_Null, ls_Null, 1)

IF ll_rc > 1 THEN
temp = 0
ll_last_error = GetLastError()
if ll_last_error = 0 or ll_last_error = 126 then return -2
ls_err_str = Fill(Char(0),255)
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, temp, ll_last_error,&
0, ref ls_err_str, 255, 0)
MessageBox("Помилка", ls_err_str,Exclamation!)
END IF




Вот обьявления всех ф-й
FUNCTION long GetLastError() LIBRARY "kernel32" ALIAS FOR "GetLastError"
FUNCTION long FormatMessage(Long dwFlags ,ref Any lpSource , Long dwMessageId ,Long dwLanguageId , ref String lpBuffer , &
Long nSize , Long Arguments) LIBRARY "kernel32" ALIAS FOR "FormatMessageA"

FUNCTION long ShellExecuteA( long hwnd, string lpOperation, string lpFile, string lpParameters, string lpDirectory, integer nShowCmd ) LIBRARY "SHELL32"

FUNCTION ulong GetTempPath(ulong nBufferLength, ref string lpBuffer) &
LIBRARY "kernel32" ALIAS FOR GetTempPathA