Problème d'accentRésolu

Question

Bonjour à tous

N'ayant pas trouvé de logiciel qui permet de faire des listes de compressions/decompressions de fichiers RAR à exécuter plus tard, j'ai décidé de le faire moi-même. Mais avec mon petit niveau de débutant, je bloque sur un problème d'accentuation.
Le principe du programme est de créér un fichier bat avec les instructions type RAR X "Fichiers.rar". Mais lorsque le nom du fichier RAR contient un accent ("problème.rar"), le fichier Bat est bien écrit mais lors de son exécution par une instruction shell, les lettres accentuées sont remplacées par d'autres signes.
Avez-vous une solution à mon problème ?
Merci

Cirec · Accepted Answer

dans la précipitation j'ai oublier un truc important :

procedure TForm1.Button1Click(Sender: TObject);
var
Si :STARTUPINFO;
Pi : PROCESS_INFORMATION    ;
begin
  zeromemory(@si,sizeof(STARTUPINFO));
  Si.dwFlags:=STARTF_USESHOWWINDOW;
  Si.wShowWindow:=SW_HIDE;
  If CreateProcess(Nil, 'F:\Program Files\Winrar\Rar.exe X éssais.rar o+',nil,nil,True,
  0,nil,nil,Si,Pi) Then
  Begin
    WaitForSingleObject(pi.hProcess,INFINITE);
    CloseHandle( Pi.hProcess );
    CloseHandle( Pi.hThread );
  End;
  MessageBox(handle,'c''est fini','Fin',MB_OK);
end;

 
@+
Cirec

<hr siz="" />

Cirec · Answer

Salut,

essaye de convertir le nom du fichier avec : ExtractShortPathName de l'unité SysUtils.pas

ceci devrait tout arranger

 
@+
Cirec

<hr siz="" />

Scapmag · Answer

Merci Cirec
J'essaye ça au plus vite !

Scapmag · Answer

ça fonctionne bien seulement si je n'ai pas d'accent sur les 6 premières lettres.

problème.rar donne problè~1.rar qui ne fonctionne pas
probleme d'intérêt.rar donne proble~1.rar qui fonctionne correctement

Peut-être une autre idée ??
En tout cas merci.

Cirec · Answer

problème.rar et probleme d'intérêt.rar c'est le nom du fichier de sortie
c'est pas des fichiers à compresser ?

 
@+
Cirec

<hr siz="" />

Scapmag · Answer

Merci


Non c'est les fichiers à décompresser dans ce cas.
Dans mon fichier Bat j'ai
RAR X c:\problè~1.rar
RAR X c:\proble~1.rar
J'exécute le bat après et le programme RAR ne reconnais pas le 1er alors que le 2eme fonctionne bien.
Dans mon programme, je peux sélectionnner des fichier RAR à décompresser ou des dossiers à compresser.


Je m'aperçois que je suis peut-être compliqué par rapport à mon faible niveau de Delphi.

Cirec · Answer

essaye ça :
procedure TForm1.Button1Click(Sender: TObject);
var
Si :STARTUPINFO;
Pi : PROCESS_INFORMATION    ;
begin
  zeromemory(@si,sizeof(STARTUPINFO));
  Si.dwFlags:= STARTF_USESHOWWINDOW;
  Si.wShowWindow:=SW_HIDE;
  CreateProcess(Nil, 'F:\Program Files\Winrar\Rar.exe X éssais.rar  o+ ',nil,nil,True,
  0,nil,nil,Si,Pi);
  WaitForSingleObject(pi.hProcess,INFINITE);
  MessageBox(handle,'c''est fini','Fin',MB_OK);
end;

o+   = écraser les fichiers existants
 
@+
Cirec

<hr siz="" />

Scapmag · Answer

Merci Cirec

Je n'ai rien compris mais ça marche

Problème d'accent

8 réponses

Votre réponse

Discussions similaires