[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

Simulate Key Strokes to a Dos program

Posted on 1997-07-04
7
Medium Priority
?
875 Views
Last Modified: 2006-11-17
How can a simulate key strokes to a Dos Program running under Windows95?

My app need to lunch an app and time a five minutes delay before it ask it to quit, usualy by sending key strokes in series like "alt-x, n" or "F10, Y". My user will tell the corect sequence to send. But I must know how to send them!

ps: I know it can be done, the ScriptTools and ScriptRunner of PcTools 2.0 for Windows 3.1 does it wonderfully under both 3.1 and 95.
0
Comment
Question by:lmarceau
  • 4
  • 3
7 Comments
 
LVL 3

Expert Comment

by:sperling
ID: 1338244
Hummm... 16-bits I'm not sure of, 32-bits I might have a solution for. One question, though, do you need to be able to send just *some* keystrokes? I've already written a 32-bit class allowing you to redirect *all* input/output to/from a console/dos app, if you need to control only parts of the input it won't do.

Regards,

Erik.
0
 
LVL 1

Author Comment

by:lmarceau
ID: 1338245
Edited text of question
0
 
LVL 3

Accepted Solution

by:
sperling earned 300 total points
ID: 1338246
This code should get you started.

Just create a form with a single button and use this code for the OnClick handler. Remember to replace the hardcoded path in CreateProcess with e.g. path to command.com.

This code will simply send an ENTER every 2 seconds until the dos app quits.

--
procedure TForm1.Button1Click(Sender: TObject);
var
  si      : TStartupInfo;
  pi      : TProcessInformation;
  ir      : ARRAY [0..1] of TInputRecord;
  n       : INTEGER;
  sa      : TSecurityAttributes;
begin
  FillChar(si, SizeOf(si), 0);
  si.cb := SizeOf(si);
  AllocConsole;
  CreateProcess('C:\WINNT\SYSTEM32\CMD.EXE', nil, nil, nil, TRUE, 0, nil, nil, si, pi);
  FillChar(ir, SizeOf(ir), 0);
  ir[0].EventType := KEY_EVENT;
  with ir[0].KeyEvent do begin
    bKeyDown := TRUE;
    wRepeatCount := 1;
    wVirtualKeyCode := VK_RETURN;
    AsciiChar := #13;
  end;
  ir[1] := ir[0];
  ir[1].KeyEvent.bKeyDown := FALSE;
  Sleep(1000);
  repeat
    WriteConsoleInput(GetStdHandle(STD_INPUT_HANDLE), ir[0], 2, n);
    Sleep(1000);
  until WaitForSingleObject(pi.hProcess, 0) = WAIT_OBJECT_0;
  FreeConsole;
end;
--

The important parts here are:

AllocConsole - Creates a console owned by your app.

TRUE for bInheritHandles in CreateProcess - The dos app will use the already existing console, still owned by your app.

FreeConsole - Removes the console owned by your app.

The TInputRecord array is necessarry because you normally needs to send both key-down and key-up to the app. Look up WriteConsoleInput in API help, look at the INPUT_RECORD and then KEY_EVENT_RECORD topic. You'll probably need to use the dwControlKeyState flag to simulate ALT and so on. Some error-checking might be an idea too.


Regards,

Erik.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Author Comment

by:lmarceau
ID: 1338247
I've copy/pasted your code in Delphi developper 2.0.
The console boot ok. Prety cool right.
But the key aren't sent. Can you find out why?
0
 
LVL 3

Expert Comment

by:sperling
ID: 1338248
Win 95 or NT ?? Version?

Are the path and filename in CreateProcess correct?

What return values do you get from CreateProcess and WriteConsoleInput? What are the values returned if calling  GetLastError after these calls?

Regards,

Erik.
0
 
LVL 1

Author Comment

by:lmarceau
ID: 1338249
Escuse me for the delay. I'm back now.

The answers to your questions are:
I'm under Win95, Delphi 2.0

While running your code:
Console created ok
Process created ok in the console ('c:\command.com') CreateProcess returns 1, GetLastError (just after the call to createprocess) returns 6  (what does that means? where can I get a list of error code?)

Key not sent (I've added a feed back on the form, 'Sent' is beaing textout on the form every two second but the keys aren't sent)
WriteConsoleInput returns 1, GetLastError (just after the call to WriteConsoleInput) returns 6 too.

Hope this help, my shipping deadline is now aproaching!
0
 
LVL 1

Author Comment

by:lmarceau
ID: 1338250
Well, my deadline had gone though and I had to ship without the feature/ But a still need a solution.
Please help me. You seem to have a more powerfull solution than anyone else.
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Is your data getting by on basic protection measures? In today’s climate of debilitating malware and ransomware—like WannaCry—that may not be enough. You need to establish more than basics, like a recovery plan that protects both data and endpoints.…
This lesson discusses how to use a Mainform + Subforms in Microsoft Access to find and enter data for payments on orders. The sample data comes from a custom shop that builds and sells movable storage structures that are delivered to your property. …
Suggested Courses
Course of the Month18 days, 6 hours left to enroll

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question