Discussion :

[chekkal]

Bonjour à tous,

j'essaye d'ouvrir "imprimante et télécopieur" avec delphi mais j'y arrive pas avec ces 2 commandes

Code :

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

1
2
3
WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL main.cpl @2 '), SW_SHOWNORMAL);
// ou
WinExec('RUNDLL32 SHELL32.DLL,SHHelpShortcuts_RunDLL PrintersFolder', sw_ShowNormal);

[tourlourou]

Regarde ici comment faire pour exécuter la commande 'control printers', qui ouvre ce panneau de contrôle.

[chekkal]

Bonjour,

le lien parle d'impression de fichier, mais moi je cherche à ouvrir "imprimante télécopieurs" de windows

[tourlourou]

Le lien traite de l'exécution d'une commande DOS, et la commande DOS 'control printers' ouvre le dossier que tu souhaites. Il suffit de les associer !

[Lung]

Sinon, il y a aussi ça :

Code :

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

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

(fonctionne sous windows 8)

[Cirec]

Salut,

sinon il y a cette version qui fonctionne depuis D4 & Xp

Code :

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

1
2
ShellExecute(0,'open','rundll32.exe',
  'C:\WINDOWS\System32\SHELL32.DLL,SHHelpShortcuts_RunDLL PrintersFolder',NIL,SW_SHOW);

et testé aujourd'hui avec Berlin 10.1 & Seven

[chekkal]

Bonjour,

j'ai testé les 2 methôdes mais il signale l'erreur

erreur entrée manquante: SHHelpShortcuts_RunDLL

[tourlourou]

Quel est ta version de Windows ? 32 ou 64 bits ?
D'après Undocumented Windows Functions, SHHelpShortcuts_RunDLL est présente dans toutes les versions de Windows, sauf la 10 que je n'ai pas vue listée.

[Cirec]

tu peux aussi essayer d'importer directement la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  procedure SHHelpShortcuts_RunDLL (
    hwndParent: HWND;
    unusedHinstance: HWND;
    commandLine: PChar;
    unusedInt: Integer); stdcall; external 'Shell32.dll' name 'SHHelpShortcuts_RunDLLW';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned(@SHHelpShortcuts_RunDLL) then
    SHHelpShortcuts_RunDLL(Handle, 0, 'PrintersFolder', 0);
end;

si ta version de Delphi n'est pas Unicode (Delphi est Unicode à partir de D2009)
il faut remplacer :
name 'SHHelpShortcuts_RunDLLW';

par :
name 'SHHelpShortcuts_RunDLLA';

d'après ce site tout est ok pour win10

[chekkal]

bonjour touroulou

Quel est ta version de Windows ? 32 ou 64 bits ?
D'après Undocumented Windows Functions, SHHelpShortcuts_RunDLL est présente dans toutes les versions de Windows, sauf la 10 que je n'ai pas vue listée.

j'ai la version windows 7 avec delphi xe2.

bonjour cirec,
ça marche! merci beacoup;