Hi Forum.

Ich hab da ein Problem an dem ich verzweifel. Ihr seid meine letzte Hoffnung..
Also, gegeben ist ein Programm mit eigener Ableitung von VirtualStringTree und den Drag and Drop Komponenten (von hier). Ich möchte gerne Dateien in den Explorer ziehen, das mache ich im abgeleiteten Baum im überschriebenen DoDragging() folgendermaßen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMFileTree.DoDragging(P: TPoint);
var
  i: Integer;
  Entries: TFileDataArray;
begin
  if FDragSource.DragInProgress then
    Exit;

  FDragSource.Files.Clear;
  Entries := GetSelected;
  for i := 0 to Length(Entries) - 1 do
    FDragSource.Files.Add(Entries[i].Filename);

  if FDragSource.Files.Count = 0 then
    Exit;

  DoStateChange([], [tsOLEDragPending, tsOLEDragging, tsClearPending]);
  FDragSource.Execute(True);
end;

Funktioniert auch blendend. Ich benutze die Drag und Drop Komponenten, weil ich gerne asynchron Draggen möchte. Und jetzt zu dem für mich unerklärlichen Phänomen.

Wenn ich das Programm auf einem anderen Rechner laufen lasse (Beide Rechner sind Win7 x64) kommt es zu Problemen. Sobald ich die Drag&Drop Aktion starte, bekomme ich die schöne Meldung "Thread-Fehler: Das Handle ist ungültig (6)" und das wars mit Draggen. Das interessante ist jetzt aber folgendes (war auch ein schöner Zufall, dass ich das gemerkt habe):
Starte ich das Programm von irgendeinem Pfad aus (exe hinkopieren, doppelklicken), der nicht "C:\Programme (x86)\" oder ein Unterverzeichnis davon ist, funktioniert alles blendend. Wohnt das Programm in "C:\Programme (x86)\", kommt es zu besagtem Fehler.
Eine weitere Merkwürdigkeit ist, dass, wenn ich das Programm aus dem Programme-Ordner heraus als Administrator starte (Rechtsklick->Als Administrator ausführen), auch alles gut funktioniert...

Hat da irgendjemand vielleicht einen Hinweis oder einen Denkanstoß? Vielen dank im vorraus und erstmal noch einen schönen Abend

Was sagt Dein Debugger?
Welches Handle ist den ungültig?
Die Sourcen scheinen ja dabei zu sein.

Hi,

vielen Dank erstmal für deine Antwort. Bis jetzt konnte ich auf dem Rechner wo der Fehler auftritt noch nicht debuggen, ich werde das heute Abend mal versuchen irgendwie zu regeln...
Was ich so noch so halb aus dem Kopf weiß, ist der Callstack, der mir von madExcept verraten wird:

ntdll.Ki*Irgendwas*
TThread.WaitFor()
TDropFileSource.Execute()
DoDragging()

Ich denke mal das bedeutet, dass der Drag gestartet wird, aber der Drag-Thread dazu dann direkt stirbt. Nur warum passiert das nur auf diesem einen Rechner unter C:\Programme? Vielleicht hätte da noch jemand, der sich mit den Änderungen von XP->Vista->7 auskennt, was die Benutzerrechte angeht, eine ganz allgemeine Idee, was los sein könnte. Weil als Administrator geht es ja auch ohne Probleme. Ansonsten werde ich heute Abend noch mehr Forschung betreiben und alles Posten, inklusive madExcept-Log, was ich noch herausfinden kann...

Erstmal Danke für die Mühe und liebe Grüße

Das einzige was mir dazu einfällt ist dass im Programmverzeichnis keine Schreibrechte vorhanden sind.
Dies ist wohl seit win2k so - es haben aber nicht alle bemerkt da als Administrator angemeldet.
Seit Vista ist das bereinigt. Du wirst doch nicht etwa beim Drop da was reinschreiben?
Da Du es bei Dir nicht nachvollziehen kannst: Läuft bei Dir Delphi als Administrator oder/und im Kompatibilätsmodus?

Nein, meine Programme arbeiten alle sauber, die schreiben nichts in C:\, C:\Programme, oder sonst wohin, wo man es nicht darf. Und das Draggen stürzt ja direkt ab, nicht erst wenn ich Dateien "fallen lasse". Also es crashed, bevor sich der Mauszeiger zu dem "Du draggst jetzt was"-Symbol verändert.

Zitat:

Da Du es bei Dir nicht nachvollziehen kannst: Läuft bei Dir Delphi als Administrator oder/und im Kompatibilätsmodus?

Ich lasse es auf beiden PCs ohne laufendes Delphi, also ohne Debugger, laufen. Beim einen tut es aus dem Programme-Pfad, bei dem anderen nicht. Der Benutzer ist auf beiden Rechnern "Administrator", aber seit Vista (?) ist das ja kein echter Administrator mehr, ausser man startet das Programm per Rechtsklick->Als Administrator starten. Das behebt ja bei dem einen das Problem, bei dem anderen nicht. Diese UAC-Virtualisierung ist auch auf beiden Rechnern laut Taskmanager für das Programm deaktiviert. Ich denke, dass man hier nicht weiter kommt, ohne auf dem Rechner, wo es nicht funktioniert, Delphi zu installieren. Das versuche ich mal nach Feierabend... Was mir noch aufgefallen ist: Ein Testprogramm, was, was das draggen angeht, den selben Code enthält, funktioniert aus C:\Programme auf beiden PCs. Ist doch zum Mäuse melken.... Mehr dazu hoffentlich später. Danke nochmal!

Spitze.
Auf dem Rechner ein Delphi installiert, gestartet, und ich werde mit der netten Meldung '"false" ist kein gültiger Integerwert' begrüßt. Dann kommt die IDE im Undocked-Classic-Mode und beim Projektöffnen oder Projekt neu anlegen haut es mir eine Zugriffsverletzung bei Adresse 0 um die Ohren.
Vermutlich war es das dann mit der Fehlersuche ...

Zitat von wicht:

Ich denke, dass man hier nicht weiter kommt, ohne auf dem Rechner, wo es nicht funktioniert, Delphi zu installieren.

Seit Delphi 2007 funktioniert der RemoteDebugger einigermassen O.K.