Thema: Delphi key an console senden 2

Einzelnen Beitrag anzeigen

Benutzerbild von APP
APP

Registriert seit: 24. Feb 2003
Ort: Graz (A)
705 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: key an console senden 2

  Alt 5. Aug 2003, 11:30
Hallo moin339,
darf ich fragen, ob Du mein gepostetes Testprogramm auch ausprobiert hast

Wenn ich eine Konsole mit SW_HIDE aufmache, funktioniert das Programm trotzdem!

2 Buttons hinzugefügt:
Delphi-Quellcode:
PROCEDURE TForm1.Button2Click(Sender: TObject);
BEGIN
  ShellExecute(Handle, 'open', 'cmd.exe', '', '', SW_HIDE); // erzeugt eine versteckte Konsole
END;

PROCEDURE TForm1.Button3Click(Sender: TObject);
BEGIN
  ShowWindow(FindWindow(NIL, pchar('C:\windows\system32\cmd.exe')), SW_SHOW); // zeigt die Konsole UND DEN GESENDETEN TEXT an
END;
Armin P. Pressler

BEGIN
...real programmers are using C/C++ - smart developers Delphi;
END;
  Mit Zitat antworten Zitat