Bonjour à toutes et à tous,

Reprenant une à une mes anciennes applications compilées sous win32 et lazarus 1.6.4, je tombe sur l'os suivant : "RenameFile" refuse de s'exécuter bien que le fichier existe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure EnrgFchKMZ;
var
  i: Integer;
  NomFch: String;
begin
  try
    SetCurrentDir(DirDst);
    with Base.Zipper do
    begin
      NomFch:= DirDst+ChangeFileExt(ImgSrc, '.zip');
      FileName:= NomFch;
      AddFiles('doc.kml', faArchive);
      for i:= 0 to High(InfosKML) do
        AddFiles(InfosKML[i].Icon, faArchive);
      Save;
    end;
    if RenameFile(NomFch, ChangeFileExt(NomFch, '.kmz')) then
    begin
      for i:= 0 to High(InfosKML) do
        DeleteFile(InfosKML[i].Icon);
      DeleteFile('doc.kml');
      RemoveDir('files');
      Screen.Cursor:= crDefault;
      Base.ProgressConv.Position:= 0;
      MessageDlg(' Le fichier .KML a été correctement réalisé.'
                 , mtInformation, [mbOk], 0);
 
    end;
  except
    Screen.Cursor:= crDefault;
    Base.ProgressConv.Position:= 0;
    MessageDlg(' Le fichier .KML n''a pas pu être correctement réalisé.'
               , mtError, [mbOk], 0);
  end;
end;
Des idées.

Cordialement.

Pierre.