Dialog 'Netzwerkverbindungen' anzeigen

[Kinimod8]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(GetActiveWindow,
               'open',
               'rundll32.exe',
               'shell32.dll,Control_RunDLL ncpa.cpl,,4',
                NIL,
                SW_NORMAL);
end;

Vergesse nicht die Unit ShellApi (wegen ShellExecute) einzubinden.

[edit=Admin]Tippfehler im Titel korrigiert. Mfg, Daniel[/edit]