https://code.google.com/p/mustangpea...s/wiki/Welcome

Hallo
Ich versuche grade MustangPeak
zu installieren. Soweit so gut
nur die Design Unit von
"mustangpeakvirtualshelltools"
funktionieren nicht richtig.

zusammenfalten · markieren

Delphi-Quellcode:

function TVSTShellToolbar.LoadFromDataObject(DataObject: IDataObject): Boolean;
var
  StgMedium: TStgMedium;
  Stream: IStream;
  BytesRead: LongInt;
  NewPos: uint64; // Hier muss LongInt rein
  LocalPIDLSize: integer;
  Malloc: IMalloc;
begin
  Result := False;
  if Succeeded(DataObject.QueryGetData(GetFormatEtc)) then
    if Succeeded(DataObject.GetData(GetFormatEtc, StgMedium)) then
    begin
      Stream := IStream( StgMedium.stm);
      Stream.Seek(0, STREAM_SEEK_SET, NewPos);
      Stream.read(@FProcess, SizeOf(Process), @BytesRead);
      Stream.read(@LocalPIDLSize, SizeOf(LocalPIDLSize), @BytesRead);
      SHGetMalloc(Malloc);
      PIDL := Malloc.Alloc(LocalPIDLSize);
      Stream.read(@PIDL^, LocalPIDLSize, @BytesRead);
      Result := True;
    end
end;

 Stream.Seek(0, STREAM_SEEK_SET, NewPos);

Zitat:

VirtualShellToolBar.pas(4380): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

wenn ich uint64 mit LongInt ersetze wird alles richtig Kompaliert nur dann habe ich
Laufzeitfehler.
Hat jemand eine Idee

Ja, verwende LargeInt.

Leider funktioniert das unter Win 10 wohl nicht mehr.
Ich bekomme Schutz Verletzungen sobald ich eine
Componente auf Aktiv setze.

Au weia
was für ein Kampf

also ich habe es jetzt hinbekommen
svn:
https://code.google.com/p/mustangpea...ource/checkout
Mit diesem Link, scheint eine andere Version zu sein.

und Virtual Treeview 6.2.0

Vielleicht hilf das ja jemanden.

Vielleicht sprichst Du mal mit Roman Kassebaum auf g+, der wollte das wohl übernehmen und hat es wohl auf Seattle hinbekommen.