Discussion :

[Powerdj]

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

[exoseven]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
Var x:ansistring;
Begin
x:='COMMAND.COM /C attrib -s -h '+'C:\Test';
winexec(pansichar(x),0);
end;

depuis le support unicode le type string n'est plus en 8bits, il faut utiliser ansistring si tu en as besoin

[Powerdj]

Mercccccccccccci ça marche