Forum: Win32/Win64 API (native code)
Delphi
by KodeZwerg,
11. Nov 2018
Ich wollt mich damit nicht rühmen, nur dem Unsinn noch einen drauf setzen, habe aber auch erst beim zweiten mal lesen gemerkt das Du in dem Moment was anderes Meintest.
Thread ist ja erfolgreich geschlossen, Danke nochmals.
Bilder sagen manchmal mehr als tausend Worte, deshalb mal in Anhang eins rangepappt damit man sieht woran ich überhaupt dran bin und worum es mir ging.
Forum: Win32/Win64 API (native code)
Delphi
by KodeZwerg,
10. Nov 2018
Um dem Unsinn noch ein drauf zu setzen, bitteschön mit Vergleich.
function IsTrueReallyTrueOrDoesItFoolMe: Boolean;
begin
if not IsTrueReallyTrueOrDoesItFoolMe then Result := True else;
end;
Forum: Win32/Win64 API (native code)
Delphi
by KodeZwerg,
9. Nov 2018
Achso meinst Du das. Ich Vergleiche meist alles mit was bestimmten (wenn ich Wert selbst gesetzt habe). Mir ist bekannt das idR nur False = 0 (oder -1 oder höchst möglicher negativwert) hat und True alles darüber aber was kann passieren wenn ich innerhalb Delphi funktionen wo ich selbst ein Delphi True oder Delphi False setze und später auf eben dieses kontrolliere ?
Wenn in aufgerufener...
Forum: Win32/Win64 API (native code)
Delphi
by KodeZwerg,
9. Nov 2018
Ich habe im Editor vieles rausgeschnippselt ums aufs wesentliche zu reduzieren, IconFile war auch oben drin mit Edit-Feld zuweisung, sorry ist dem reißwolf vorgeworfen worden.
if not ( PickIconDialog( IconFile, IconIndex ) = False ) then
*updated*
Dankeschön!
Forum: Win32/Win64 API (native code)
Delphi
by KodeZwerg,
9. Nov 2018
Ich habe von HolgerX eine sehr gut funktionierende Lösung erhalten.
Hier die Funktion:
function PickIconDialog(var Filename: WideString; var IconIndex: Integer ): Boolean;
implementation
function _PickIconDlg(AHwnd : HWND; pszIconPath : PWideString; cchIconPath : DWORD; var piIconIndex : integer):integer; stdcall; external 'Shell32.dll' name 'PickIconDlg';
function...
Forum: Win32/Win64 API (native code)
Delphi
by KodeZwerg,
9. Nov 2018
Hallo Gemeinde,
ich habe gerade den Vorteil dieser Funktion entdeckt aber weiß nicht so richtig wie ich sie korrekt anwenden muss.
Information habe ich dafür selbst noch nicht viele gefunden. Emba und meine Hilfe zucken mit Achseln.
Hier ist ein Wrapper den ich geschustert habe:
uses
ShlObj;
...