Funktioniertbei jemanden MustangPeak für xe7

[ATS3788]

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.

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

[Union]

Ja, verwende LargeInt.

[ATS3788]

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

[ATS3788]

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.

[Union]

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