XP Usermanagers 6.1 Open Source

[Luckie]

Dann wäre es jetzt möglich mir eine 64-Bit Exe zur Verfügung zu stellen? Das wäre nett.

[Delphi-Laie]

Zitat:

Zitat von hhcm (Beitrag 1456655)

Zitat:

Zitat von Delphi-Laie (Beitrag 1456654)

Sebastian, könntest Du bitte - falls noch in Erinnerung - grob umreißen, woran der Start der 64-Bit-Variante zunächst scheiterte?

Hust :wink:

https://github.com/jaenicke/usermana...ad4e911151c421

Die akribische, vollständige Auflistung all' der Unterschiede zur Vorgängerversion erschließt einem nur mittelmäßig Begabten leider nicht, ob es vielleicht nur an 1-2 Essentialitäten lag und welche das gewesen sein könnten, woran es zunächst scheiterte.

[hhcm]

Hmm. Kompiliert und startet, leider schmiert es beim Klicken in der GUI ab.
Es liegt wohl an der nested function EnumProc in GUIHelpers.pas

Code:

procedure EnableChildWindows(ParentWindow: THandle; Enable: Boolean);

  function EnumProc(wnd: HWND; lparam: LPARAM): BOOL; stdcall;
  begin
    result := True;
    EnableWindow(wnd, IntegerToBoolean[lparam]);
  end;

var
  Param: Integer;

begin
  Param := BooleanToInteger[Enable];
  EnumChildWindows(ParentWindow, @EnumProc, Param);
end;

Nimmt man die nested Function raus

Code:

function EnumProc(wnd: HWND; lparam: LPARAM): BOOL; stdcall;
begin
  result := True;
  EnableWindow(wnd, IntegerToBoolean[lparam]);
end;

procedure EnableChildWindows(ParentWindow: THandle; Enable: Boolean);
var
  Param: Integer;
begin
  Param := BooleanToInteger[Enable];
  EnumChildWindows(ParentWindow, @EnumProc, Param);
end;

läuft alles.
Die Doku sagt dazu

Zitat:

Verschachtelte Prozeduren und Funktionen (Routinen, die in anderen Routinen deklariert sind), können nicht als prozedurale Werte verwendet werden. Dasselbe gilt für vordefinierte Prozeduren und Funktionen (Standardroutinen).

[Luckie]

Vielen Dank. Nur leider bin ich gerade im Krankenhaus aufgrund der Chemo, die mir doch jetzt leider heftiger zusetzt als mir lieb ist.

[stifflersmom]

Zitat:

Zitat von Luckie (Beitrag 1456684)

Vielen Dank. Nur leider bin ich gerade im Krankenhaus aufgrund der Chemo, die mir doch jetzt leider heftiger zusetzt als mir lieb ist.

Das tut mir leid.

Gute Besserung!

[jaenicke]

Zitat:

Zitat von Delphi-Laie (Beitrag 1456663)

Die akribische, vollständige Auflistung all' der Unterschiede zur Vorgängerversion erschließt einem nur mittelmäßig Begabten leider nicht, ob es vielleicht nur an 1-2 Essentialitäten lag und welche das gewesen sein könnten, woran es zunächst scheiterte.

Die source/Usermanager.dproj habe ich nur hinzugefügt, damit es verschiedene Ausgabepfade je nach Plattform gibt.
Die anderen Änderungen unter dieser Datei sind alle notwendig bzw. sinnvoll gewesen. Klar, ich hätte auch bei dem untypisierten Pointer bleiben können, aber das macht ja keinen Sinn.

[hhcm]

Zitat:

Zitat von Luckie (Beitrag 1456684)

Vielen Dank. Nur leider bin ich gerade im Krankenhaus aufgrund der Chemo, die mir doch jetzt leider heftiger zusetzt als mir lieb ist.

:shock: Gute Besserung. Werd schnell wieder gesund :!:

[Luckie]

Danke.

[Delphi-Laie]

Zitat:

Zitat von Luckie (Beitrag 1456684)

Vielen Dank. Nur leider bin ich gerade im Krankenhaus aufgrund der Chemo, die mir doch jetzt leider heftiger zusetzt als mir lieb ist.

Schon wieder, armer Michael?!

Allerbeste Besserung!