Forum: Win32/Win64 API (native code)
by KodeZwerg,
22. Okt 2018
function GetWinDir: string;
var
dir: array of WideChar;
begin
GetWindowsDirectoryW(dir, MAX_PATH);
Result := StrPas(dir);
end;
Das war meine... strange das ganze aber nun fruchtet es, ganz herzlichen Dank nochmal für Deine tatkräftige Unterstützung!
Forum: Win32/Win64 API (native code)
by KodeZwerg,
22. Okt 2018
Ja, der Fehler lag da in meinem Code irgendwo verborgen.
Also Danke nochmal für Deine mühe, nun klappt es wie es soll!!!
Das ärgert mich das ich es mit Deiner Vorlage nicht hinbekommen hatte, aber nun wird alles gut, Dank Dir!:thumb:
/edit
habe den fehler gefunden
ImageList.Handle:=SHGetFileInfo(PChar(GetWinDir), 0, sfi, sizeof(TShFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);...
Forum: Win32/Win64 API (native code)
by KodeZwerg,
22. Okt 2018
Ich habe soeben, nur um der Sache auf den Grund zu gehen, ein frisches Demo erstellt mit dem Ergebnis, wenn ich Deinen Code verwende, so wie Du in abgebildet hast, hab ich gar kein Icon sichtbar, das ist mir etwas zu viel transparenz.
Ich frage mich auch wozu Du eine ImageList erstellst wenn sie im Code keine Verwendung hat.
Forum: Win32/Win64 API (native code)
by KodeZwerg,
21. Okt 2018
Da wird aber das gemacht was ich nicht möchte, Transparente Farbe wird Schwarz dargestellt.
Ich habe auch mit Icon.Transparent etc herumprobiert, ich bekomme es, ohne meinen Umweg den ich oben beschrieb, nicht zum laufen
So schaut der aktuelle Build aus.
Forum: Win32/Win64 API (native code)
by KodeZwerg,
21. Okt 2018
@dolly, habe es nun so gemacht wie du vorgeschlagen hast (nur weil ich da noch ne sortier funktion eingebaut habe ^^)
wer mag kann das tool sich hier runterladen.
(es ist noch beta, da muss noch ne konfiguration usw rein, speichert keine spaltenmaße usw...
bei interesse werkel ich da noch ein wenig rum und stelle es in userprojects vor)
Forum: Win32/Win64 API (native code)
by KodeZwerg,
21. Okt 2018
Okay, ich scheine eine passende Stellschraube gefunden zu haben aber kann mir nicht vorstellen dass das korrekt ist.
ImageList.BkColor := clWhite.
@DieDolly, danke, das passt schon, für mich steht der Zeitpunkt der Erstellung und PID im Fokus, Rest ist nur damit man was sieht :-)
Forum: Win32/Win64 API (native code)
by KodeZwerg,
21. Okt 2018
Hallo, ich werde irgendwie alleine nicht fündig,
ich habe eine Listview und hole/fülle mir so die Icons:
var
FileInfo: SHFILEINFOW;
Icon: TIcon;
Files: TStringList;
...