XP Usermanagers 6.1 Open Source

[Codehunter]

Zitat von Delphi-Laie:

Da das aber ein Non-VCL-Programm ist

War mir gar nicht bewusst. Meine Güte ist das lang her. War das nicht die Spezialität von Assa und Nico Bendlin? Zumindest Assas EnDisAble benutze ich bis heute wenigstens einmal im Monat. Ich meine mich an eine Aussage von Assa zu erinnern, das irgendetwas an NonVCL prinzipbedingt nicht mit x64 und Nextgen-Compilern funktionieren könnte.

[Luckie]

Hat er das auch begründet?

[jaenicke]

Zitat von Codehunter:

Ich meine mich an eine Aussage von Assa zu erinnern, das irgendetwas an NonVCL prinzipbedingt nicht mit x64 und Nextgen-Compilern funktionieren könnte.

Das stimmt nicht.

Ich habe nun Korrekturen hochgeladen, mit denen es unter 32-Bit und 64-Bit kompiliert und funktioniert.

// EDIT:

Zitat von Delphi-Laie:

Da das aber ein Non-VCL-Programm ist, sah und sehe ich mich außerstande, überhaupt nur etwas in dieser Richtung zu versuchen.

Dafür hatte ich ja vor zwei Jahren oder so den Anfang einer entsprechenden Komponentensammlung veröffentlicht, aber leider gab es daran kein Interesse.
Die Größenanpassung hier einzubauen, wäre nicht sonderlich schwer. Man reagiert auf die Größenänderung des Fensters und setzt die Größen der Komponenten entsprechend.

In meiner Komponentensammlung wollte ich aber eher Anchors verwenden. Die funktionieren bei mir auch schon recht gut, aber mangels Interesse habe ich dann nichts weiter veröffentlicht. Vielleicht lade ich die aktuelle Version mal hoch.

[Delphi-Laie]

Zitat von jaenicke:

Ich habe nun Korrekturen hochgeladen, mit denen es unter 32-Bit und 64-Bit kompiliert und funktioniert.

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

Daß ein Quelltext compiliert werden kann, das erhaltene Programm daraufhin jedoch nicht startet, ist ja nun so alltäglich auch wieder nicht.

[hhcm]

Zitat von Delphi-Laie:

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

Hust

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

[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 von hhcm:

Zitat von Delphi-Laie:

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

Hust

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).

[jaenicke]

Zitat von Delphi-Laie:

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.

[Codehunter]

Zitat von Luckie:

Hat er das auch begründet?

Ich habs schon gesucht hier aber nicht mehr gefunden. Von daher mich bitte nicht drauf festnageln. Aus der Erinnerung: Es ging vorallem um Unicode und Alignment. Es ist aber auch schon viele Jahre her und was ihr inzwischen geändert habt entzieht sich meiner Kenntnis