TAudioVolume Komponente incl. System Mixer

[KodeZwerg]

Kanalsteuerung Rechts <- Mitte -> Links
Das funktioniert nicht in der Nebenansicht, also per App Setting. Kann bei mir an Windows 10 liegen wie so oft.
ot
Wie kompatibel ist Delphi 2009 zu 2010, gibt es da arge Unterschiede, weißt Du da was drüber? Da bin ich stark am überlegen mir das zusätzlich zu kaufen um bei kleinst-privat-Projekten kleinere Dateien zu erzeugen als wie es Delphi Tokyo macht.
/ot

edit
das oben hat sich erledigt, habs gerade gelesen.

[EWeiss]

Zitat:

Wie kompatibel ist Delphi 2009 zu 2010

Sorry keine Ahnung habe es ausgelassen.

gruss

[EWeiss]

Ich habe jetzt die funktion geändert.
Höheren MAXSIZE addiert und den String nochmals gesplittet um die richtige länge der ID zu extrahieren.

Delphi-Quellcode:

procedure TAudioVolume.LoadIconPathfromResource(IconPath: PWideChar);
var
  Module: HModule;
  Filename: WideString;
  lpDest: array[0..32768] of WideChar;
  SplitID: TSplitStrArray;
  rSplitID: string;
  ID: DWORD;
begin

  // Remove First @ Letter
  Filename := MidStr(IconPath, 2, Length(IconPath));
  // Extract ID
  SplitID := Split(Filename, ',');
  rSplitID := SplitID[High(SplitID)];
  rSplitID := MidStr(rSplitID, 2, Length(rSplitID));

  ID := StrToInt(rSplitID);
  // Remove ID from Path
  Filename := LeftStr(Filename, Length(Filename) - 5);

  FillChar(lpDest, SizeOf(lpDest), 0);
  if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then
  begin
    // Load the Lib
    Module := LoadLibraryExW(lpDest, 0, LOAD_LIBRARY_AS_DATAFILE);
    // check for error
    if Module <> INVALID_HANDLE_VALUE then
    begin
      Icon := TIcon.Create;
      Icon.Handle := LoadIcon(Module, MakeIntResource(ID));
      if Module <> 0 then
        FreeLibrary(Module);
    end;
  end;
end;

Update kommt später muss noch einiges andere tun.. zum Beispiel den Namen kürzen wenn zu lang für die GroupBox.
Tool Tipps addieren um den Kompletten Namen anzuzeigen wenn gekürzt
Lautsprecher Icon addieren usw..

gruss

[KodeZwerg]

if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then sollte
if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768-1) <> 0 then sein.
Sorry & Gruß

[EWeiss]

Zitat von KodeZwerg:

if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then sollte
if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768-1) <> 0 then sein.
Sorry & Gruß

oops.. logisch ist schon spät. Danke

gruss

[Dalai]

Beim Entfernen der ID aus dem String Filename := LeftStr(Filename, Length(Filename) - 5); benutzt du immer noch eine feste Anzahl von Zeichen, wo eigentlich bis zur Position des Kommas kopiert werden sollte. Bzw. wenn du schon vorher SplitID[High(SplitID)] für den Icon-Index benutzt, könntest du doch an der Stelle SplitID[Low(SplitID)] verwenden, das bereits alles vor dem Komma (=der gewünschte Pfad) enthält, oder?

Grüße
Dalai

[EWeiss]

Zitat von Dalai:

Beim Entfernen der ID aus dem String Filename := LeftStr(Filename, Length(Filename) - 5); benutzt du immer noch eine feste Anzahl von Zeichen, wo eigentlich bis zur Position des Kommas kopiert werden sollte. Bzw. wenn du schon vorher SplitID[High(SplitID)] für den Icon-Index benutzt, könntest du doch an der Stelle SplitID[Low(SplitID)] verwenden, das bereits alles vor dem Komma (=der gewünschte Pfad) enthält, oder?

Grüße
Dalai

Richtig.. Danke werde es abändern.
Macht ja sonst keinen sinn.

gruss