problema al Guardar Archivo de ListView en Delphi

[wolfran_hack]

Encontré el error, pero no lo solucione todavía, el problema esta en el OpenDialog, como no funcionaba con el CSV busque para hacerlo con un archivo XML, funciona perfecto lo carga, todo ahora, no se guardaba, y de la nada encuentro un archivo "NombredelArchivo.XXX" que yo queria crear para usarlo de archivo temporal, se creo en el mismo directorio que donde tenia el XML, se esta quedando el directorio del Opendialog con información, que por este motivo cuando hago algún cambio si se guarda si no utilizo un OpenDialog.

[wolfran_hack]

Ahora digo, creo un botón al cual le pongo:

Código Delphi [-]
  SaveListViewToFile(ListView1, ExtractFilePath( Application.ExeName ) + 'NombredelArchivo.XXX');
  MessageDlg(ExtractFilePath( Application.ExeName ),mtInformation,[mbOK], 0);

entonces, cargo el archivo XML, todo perfecto, entonces digo ya cargue el XML y ahora si apretó el botón, tendría que escribir o reemplazar o crear el archivo NombredelArchivo.XXX en el directorio del EXE, pero no lo hace, por mas que le indico que tiene que utilizar el ExtractFilePath( Application.ExeName ), el archivo se crear en el directorio donde esta el XML.

[wolfran_hack]

Solucionado:

Código Delphi [-]
procedure SaveListViewToFile(AListView: TListView; sFileName: string);
var
  idxItem, idxSub, IdxImage: Integer;
  F: TFileStream;
  pText: PChar;
  sText: string;
  W, ItemCount, SubCount: Word;
  MySignature: array [0..2] of Char;
begin
  // Inicio
  with AListView do
  begin
    ItemCount := 0;
    SubCount  := 0;
    //****
    MySignature := 'LVF';
    //  ListViewFile
    F := TFileStream.Create( ExtractFilePath( Application.ExeName ) + 'NombredelArchivo.XXX', fmCreate or fmOpenWrite);
    F.Write(MySignature, SizeOf(MySignature));

    if Items.Count = 0 then
      // List is empty
      ItemCount := 0
    else
      ItemCount := Items.Count;
    F.Write(ItemCount, SizeOf(ItemCount));

    if Items.Count > 0 then
    begin
      for idxItem := 1 to ItemCount do
      begin
        with Items[idxItem - 1] do
        begin
          // Guardamos los SubItems
          if SubItems.Count = 0 then
            SubCount := 0
          else
            SubCount := Subitems.Count;
          F.Write(SubCount, SizeOf(SubCount));
          // Guardamos el Index
          IdxImage := ImageIndex;
          F.Write(IdxImage, SizeOf(IdxImage));
          // Guardamos la Caption
          sText := Caption;
          w     := Length(sText);
          pText := StrAlloc(Length(sText) + 1);
          StrPLCopy(pText, sText, Length(sText));
          F.Write(w, SizeOf(w));
          F.Write(pText^, w);
          StrDispose(pText);
          if SubCount > 0 then
          begin
            for idxSub := 0 to SubItems.Count - 1 do
            begin
              // Guardamos los Items y SubItems
              sText := SubItems[idxSub];
              w     := Length(sText);
              pText := StrAlloc(Length(sText) + 1);
              StrPLCopy(pText, sText, Length(sText));
              F.Write(w, SizeOf(w));
              F.Write(pText^, w);
              StrDispose(pText);
            end;
          end;
        end;
      end;
    end;
    F.Free;
  end;
end;