Discussion :

[Powerdj]

Salut

Comment ouvrir la fenêtre de Windows (imprimantes et télécopieurs) avec code Delphi

par ce que ce code ne fonctionne pas après l'exécution:

Code :

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

WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL main.cpl @2 '), SW_SHOWNORMAL);

Merci

[Invité]

Bonjour,

En XE7 VCL compilé sur sur mon poste Win 7 (en 32 et 64 bits), ce code semble répondre à votre demande :

Code :

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

1
2
WinExec('RUNDLL32 SHELL32.DLL,SHHelpShortcuts_RunDLL PrintersFolder',
       sw_ShowNormal);

[Iznogood12]

Salut,

Ce code marche aussi sous delphi5 et sous delphi2010 (Win 7 64bits).