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
