Tastaturhook mit Delphi XE2

[jaenicke]

Zitat:

Zitat von Daniel (Beitrag 1148995)

Ich kann derzeit allerdings nicht sagen, welche Einflüsse hier noch mit hineinspielen und warum das bei Dir nicht klappt.

Das klappt ja auch bei mir. Aber sobald ich den Wert der Funktion übergebe klappt es dort nicht.

[Daniel]

Zitat:

Zitat von jaenicke (Beitrag 1149062)

Das klappt ja auch bei mir. Aber sobald ich den Wert der Funktion übergebe klappt es dort nicht.

:shock: das ist ja mal spannend.

[jaenicke]

Ich hatte nicht die Zeit genauer im Assemblercode zu schauen was nun eigentlich passiert. Ich vermute da geht was mit Signed/Unsigned durcheinander. Ich schaue mal, wenn ich zu Hause bin. ;-)

[Bernhard Geyer]

Zitat:

Zitat von jaenicke (Beitrag 1149073)

Ich hatte nicht die Zeit genauer im Assemblercode zu schauen was nun eigentlich passiert. Ich vermute da geht was mit Signed/Unsigned durcheinander. Ich schaue mal, wenn ich zu Hause bin. ;-)

Wenn man u.U. Problem mit Signed/Unsigned vermutet könnte man auch die rangechecks im Commpiler aktivieren. Dann wird 'ne Exception geschmissen wenn hier ein entsprechendes Signed/Unsinged-Missmatch auftritt.

[Daniel]

Das hat mir ja nun keine Ruhe gelassen. Wie sieht denn das nicht funktionierende Minimalbeispiel aus? Folgender Code geht, aber ich befürchte fast, dass wir auf die eine oder andere Weise aneinander vorbei reden.

Delphi-Quellcode:

program Project745;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  WinAPI.Windows,
  System.SysUtils;

var maphandle : THandle;

begin
  //maphandle:= CreateFileMapping($FFFFFFFFFFFFFFFF, nil, PAGE_READWRITE, 0, mapsize, PChar('daniel'));
  maphandle:= CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, 8192, PChar('daniel'));
  if (maphandle <> 0) then
  begin
    /// hat wohl geklappt
    WriteLn( 'aufruf erfolgreich' );
    CloseHandle( maphandle );
  end
  else
  begin
    /// hat ... so gut wie ... geklappt
    WriteLn( 'aufruf fehlgeschlagen: "' + SysErrorMessage(GetLastError) + '"' );
  end;

  ReadLn;
end.

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1148996)

Zitat:

Delphi-Quellcode:

program Project731;

Ich dachte immer, ich sei der Einzige, der bei Mini-Testprogrammen so schlampert :lol:

Zitat:

Zitat von Daniel (Beitrag 1149101)

Delphi-Quellcode:

program Project745;

Also in 9h hat unser Admin 14 neue Mini-Projekte erzeugt
Das macht also 1,56 Mini-Projekte pro Stunde

wenn er ohne Pause geschuftet hat :mrgreen:

[jaenicke]

Zitat:

Zitat von Daniel (Beitrag 1149101)

Das hat mir ja nun keine Ruhe gelassen. Wie sieht denn das nicht funktionierende Minimalbeispiel aus? Folgender Code geht, aber ich befürchte fast, dass wir auf die eine oder andere Weise aneinander vorbei reden.

Nein, tun wir nicht. Genau dabei kam dann als Ergebnis 0 und GetLastError lieferte Code 6 (ungültiges Handle). Jetzt habe ich aus der History genau den im Test benutzten Code reaktiviert und es geht... :?
Der einzige Unterschied ist, dass ich Windows neu gestartet habe seitdem. Was dann dort passiert war weiß ich nicht, aber mit der Konstante hatte es dann nichts zu tun.