1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellApi;

type
  THauptform = class(TForm)
    Button1: TButton;
    Edit: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Hauptform: THauptform;

implementation

{$R *.dfm}

procedure PostKey(key: Byte);
begin
  keybd_event(key, Mapvirtualkey(key, 0), 0, 0 );
end;

Procedure Senden(variable:string);
var
wnd:HWND;
i:integer;
begin
wnd := FindWindowEx(0, 0, nil, 'Unbenannt - Editor');
if wnd <> 0 then begin
   if length(variable) <> 0 then begin
      SetForegroundWindow(wnd);
      ShowWindow(wnd, 1);
      Sleep(500);
      for i := 0 to length(variable) do SendMessage(wnd, WM_CHAR, Ord(variable[i]), 0);
      PostKey(VK_RETURN);
      end;
   end;
end;

procedure THauptform.Button1Click(Sender: TObject);
var
   Windows:HWND;
begin
ShellExecute(Hauptform.Handle,'open',PChar('C:\Windows\system32\notepad.exe'),nil, nil,SW_SHOWNORMAL);
sleep(500);
Senden(Edit.Text);
end;

end.					

1:

wnd := FindWindow(nil, 'Unbenannt - Editor');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure PostKey(key: Byte);
begin
keybd_event(key, Mapvirtualkey(key, 0), 0, 0 ); // was bedeuten und bewirken die 0 in dieser zeile?
end;

Procedure Senden(variable:string);
var
   Windows : HWND; // was bedeutet HWND?
         i : integer;
begin
Windows := FindWindowEx(0, 0, nil, 'Unbenannt - Editor');
if Windows <> 0 then begin
   if length(variable) <> 0 then begin
      SetForegroundWindow(Windows);
      ShowWindow(Windows, 1); 
      Sleep(500);
      for i := 0 to length(variable) do SendMessage(Windows, WM_CHAR, Ord(variable[i]), 0); // was bewirkt WM_CHAR und die 0 in dieser zeile?
      PostKey(VK_RETURN);
      end;
   end;
end;					

1:

Windows := FindWindowEx(0, 0, nil, 'Unbenannt - Editor');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Procedure Senden(variable:string);
var
   Win : HWND;
     i : integer;
begin
Win := FindWindow(nil, 'Unbenannt - Editor');
if Win <> 0 then begin
   if length(variable) <> 0 then begin
      SetForegroundWindow(Win);
      Sleep(500);
      for i := 0 to length(variable) do SendMessage(Win, WM_GETTEXT, Ord(variable[i]), 0);
      end;
   end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button3Click(Sender: TObject);
var
   Win   : HWND;
   i     : integer;
begin
ShellExecute(Form1.Handle,'open',PChar('C:\Windows\system32\notepad.exe'),nil, nil,SW_SHOWNORMAL);
Sleep(500);
Win := FindWindow(NIL, 'Unbenannt - Editor');
if Win <> 0 then begin
   SetForegroundWindow(Win);
   for i := 1 to length(Edit1.Text) do
       if VkKeyScan(Edit1.Text[i])>255 then begin
          keybd_event(VK_SHIFT, 0, 0, 0);
          keybd_event(VkKeyScan(Edit1.Text[i]), 0, 0, 0);
          keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
          end else keybd_event(VkKeyScan(Edit1.Text[i]), 0, 0, KEYEVENTF_KEYUP);
   end;
keybd_event(VkKeyScan(chr(vk_return)),0,0,keyeventf_keyup);
end;					

1:
2:
3:
4:
5:
6:

var
  HostName, Password: String;
begin
  HostName := '192.168.0.1';
  Password := 'Supergeheim :D';
  ShellExecute(Handle, 'open', 'c:\...\vncviewer.exe', PChar(HostName + ' -password ' + Password + ' -nostatus'), '', SW_SHOWNORMAL);