Encodage sous Windows

Bonjour,

j'utilise un TProcess pour supprimer un lecteur réseau avec Lazarus 2.08 FPC 3.04 x86_64-win64 sur un Windows 10 pro 64.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

function unMountDrive : String; var aProcess: TProcess; aStringList: TStringList; begin aProcess := TProcess.Create(nil); aStringList := TStringList.Create; with aProcess do begin CommandLine := 'NET USE R: /DELETE'; Options := Options + [poWaitOnExit, poNoConsole, poUsePipes]; Execute; aStringList.LoadFromStream(AProcess.Output); result := aStringList.Text; aStringList.Free; Free; end; end;   ShowMessage(unMountDrive);

---

Le showmessage affiche

Citation:

---

R; a?t? supprim?.

---

J'ai essayé de l'afficher correctement avec LazUtf8, LConvEncoding... sans succès.

Merci pour votre aide. Cordialement. Gilles

Bonjour,

Comme tous les problèmes de codage il faut trouver la bonne fonction. Ici de tête c'est

Code:

---

1 2	// converts OEM encoded string to UTF8 (used with some Windows specific functions) function ConsoleToUTF8(const s: string): string; {$IFDEF UTF8_RTL}inline;{$ENDIF}

---

dans l’unité LazUTF8?

Cordialement

Bonjour,

oui :oops:... je ne l'ai pas vue.
Merci beaucoup.
Cordialement. Gilles