[Bug 12672] Unimplemented function mshtml.dll.PrintHTML causes crash when printing in Teach 2000

http://bugs.winehq.org/show_bug.cgi?id=12672

--- Comment #4 from bas   2009-04-10 12:08:25 ---
Created an attachment (id=20367)
 --> (http://bugs.winehq.org/attachment.cgi?id=20367)
Test application to reproduce this bug

See the attachment 12672.zip for the test application to reproduce this
problem.

Source:
procedure TForm18.Button1Click(Sender: TObject);
const
  cOperation: PAnsiChar = 'OPEN';
  cFileName = 'rundll32.exe';
  cParametersFmt = 'mshtml.dll,PrintHTML "%s"';
var
  LFileName: string;
begin
  LFileName := Application.ExeName + '.html';
  ShellExecute(Handle, cOperation, cFileName, PChar(Format(cParametersFmt,
[LFileName])), nil, 0);
end;