En Delphi7 Ce code ça Marche très bien

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
Var   x:string;
Begin
x:='COMMAND.COM /C attrib -s -h '+'C:\Test'; 
winexec(pchar(x),0);
end;

Mais en Delphi 2010 s’affiche l’erreur suivant dans l’instruction winexec(pchar(x),0); :

E2010 Incompatibles types 'char' and 'AnsiChar''
Solution SVP