Mam taki oto problem
var FFileName: String;
begin
FFileName := 'c:\1.jpg';
ShellExecute(Handle,PChar('open'),PChar('rundll32.exe'),PChar('C:\Windows\System32\shimgvw.dll,ImageView_Fullscreen '+ FFileName), nil, SW_NORMAL);
Powyższa linia działa bez problemu :-)
Obraz uruchamia się w podglądzie obrazów i faksów systemu Windows
ale ..........
ShellExecute(Handle,PChar('open'),PChar('rundll32.exe'),PChar('C:\Windows\System32\shimgvw.dll,ImageView_PrintTo ' + FFileName), nil, SW_NORMAL);
Już nie działa
Chciałbym użyć kreatora drukowania dostępnego pod Windows ale nie wiem jak go wywołać
Próbowałem
ShellExecute(Handle,'open','rundll32.exe',' C:\WINDOWS\system32\shimgvw.dll,ImageView_PrintTo /pt','C:\1.jpg',SW_SHOWMAXIMIZED);
ShellExecute(Handle,'open','C:\WINDOWS\system32\shimgvw.dll','ImageView_PrintTo /pt C:\1.jpg',nil,SW_SHOWMAXIMIZED);
ShellExecute(Handle,'open','rundll32.exe','C:\WINDOWS\system32\shimgvw.dll,ImageView_PrintTo /pt C:\1.jpg',nil,SW_SHOWNORMAL);
WinExec(PChar('rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_PrintTo /pt C:\1.jpg'),SW_ShowNormal);
Drukowanie plików graficznych wywoływane jest za pomocą polecenia
rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_PrintTo /pt "%1" "%2" "%3" "%4"
Ktoś wie co jest nie tak ???