title: shFileoperation and german Umlaute
body: <p>I have this function. </p>
  
  <pre><code>procedure DeleteToBin(filename:string);
  var
  fileOpStruct : TSHFileOpStruct;
  filename_a :ansistring;
  begin
    filename_a := filename + #0#0;
    //showmessage(filename_a);
    fileOpStruct.Wnd := Application.MainFormHandle;
    fileOpStruct.wFunc := FO_DELETE;
    fileOpStruct.pFrom := PAnsiChar(filename_a); 
    fileOpStruct.fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION;
    SHFileOperation( fileOpStruct );
  end;
  </code></pre>
  
  <p>It works nice on ordinary paths and files like: <code>C:\mypath\myfile.ext</code>. But as soon I cope with files including german Umlaute it fails eg: <code>C:\mypööö\myfileüüü.ext</code></p>
  
  <p>I tried every conversion I could think of (like UTFtoANSI) but did not get the desired effect.
  By the way: the showmessage shows the correct readable german filename.</p>
  
  <p>what kind of conversion is necessary to make it work?</p>