печать djvu

[detalik]

Попробовал сделать вот так

var
s:string;
w:word;
winhandl:HWND;// - handle
begin
s:=ListBox1.Items[i];
 ShellExecute(0, 'open', Pchar(s),nil,nil, SW_SHOWNORMAL);
 SetForeGroundWindow(winhandl);
 //w:=VkKeyScan('P');
 i:=1+1;
 {эмулируем нажатие клавиш CTRL+P и Enter}
 SendMessage (winhandl, WM_KeyDown, 11, 0);
 SendMessage (winhandl, WM_KeyDown, Ord('P'), 0);
 SendMessage (winhandl, WM_KeyUp, Ord('P'), 0);
 SendMessage (winhandl, WM_KeyUp, 11, 0);
if i=ListBox1.Items.Count then
  Timer1.Enabled:=False;

Но диалогового окна с выбором принтера не появляется, в чем ошибка?

[detalik]

Как получить handle запущенного мною приложения?