Package erstellen und installieren...

[lordludwig]

hmm nichts...

Delphi-Quellcode:

unit sndkey32;

interface

Uses SysUtils, Windows, Messages, Classes;

Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean;
function AppActivate(WindowName : PChar) : boolean;
//procedure Register;
{Buffer for working with PChar's}

const
  WorkBufLen = 40;
var
  WorkBuf : array[0..WorkBufLen] of Char;

[mkinzler]

Ist das die ganze Unit?

[lordludwig]

ich denke schon, so geht es zumindest weiter...

Delphi-Quellcode:

unit sndkey32;

interface

Uses SysUtils, Windows, Messages, Classes;

Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean;
function AppActivate(WindowName : PChar) : boolean;
//procedure Register;
{Buffer for working with PChar's}

const
  WorkBufLen = 40;
var
  WorkBuf : array[0..WorkBufLen] of Char;

implementation
type
  THKeys = array[0..pred(MaxLongInt)] of byte;
var
  AllocationSize : integer;

(*
Converts a string of characters and key names to keyboard events and
passes them to Windows.

Example syntax:

SendKeys('abc123{left}{left}{left}def{end}456{left 6}ghi{end}789', True);

*)


procedure Register;
begin
    RegisterComponents('Samples', [ Sendkeys ]);
end;

Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean;
type
  WBytes = array[0..pred(SizeOf(Word))] of Byte;

  TSendKey = record
    Name : ShortString;
    VKey : Byte;
  end;
.
.
.

[mkinzler]

Entferne die Register.Prozedur komplett.

[lordludwig]

register.prozedur????

merkiere für mich idiot am besten den teil der raus muss

[mkinzler]

Alles was du vorhin unter meiner Anleitung eingefügt hast.

[lordludwig]

etwa dann so???

Delphi-Quellcode:

unit sndkey32;

interface

Uses SysUtils, Windows, Messages, Classes;

Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean;
function AppActivate(WindowName : PChar) : boolean;
//procedure Register;
{Buffer for working with PChar's}

const
  WorkBufLen = 40;
var
  WorkBuf : array[0..WorkBufLen] of Char;

implementation
type
  THKeys = array[0..pred(MaxLongInt)] of byte;
var
  AllocationSize : integer;

(*
Converts a string of characters and key names to keyboard events and
passes them to Windows.

Example syntax:

SendKeys('abc123{left}{left}{left}def{end}456{left 6}ghi{end}789', True);

*)


//procedure Register;
//begin
//    RegisterComponents('Samples', [ Sendkeys ]);
//end;

dann gibt es wieder keinen punkt unter Saples...

irgendwie muss es doch möglich sein... soll ich das projekt mal hochladen und einer schaut sich das an???

[mkinzler]

Zitat:

dann gibt es wieder keinen punkt unter Saples...

Wie gesagt, kann man nur Komponenten in der IDE registrieren. Prozeduren/Funktionen nicht. Diese kann man nach Einbinden der Unit, in der sie deklariert sind einfach verwenden.
Du könntest natürlich diese Prozedur zu Methode einer (Komponenten-)Klasse machen und diese dann registrieren.

[lordludwig]

ok, danke das funktioniert nun

Verstehe nur noch nicht wie dann das hier gemeint war...
Link

Danke an alle, die geholfen haben...

Jetzt erst mal n bier...

[mkinzler]

Ich glaube, du hast nur das falsche Package von torry heruntergeladen

Dieses hier und dieses verwenden Komponenten.