Unterschied Drag/Drop XP-Vista

[haentschman]

Hallo alle miteinander...

kann mir bitte jemand den Unterschied beim Drag/Drop zwischen XP und Vista erklären.

folgender Code funktioniert unter XP aber unter Vista wird "HabeFertig" nicht ausgeführt.

Delphi-Quellcode:

const
  WM_FERTIG = WM_USER + 100;

  type
  TJvFileListBox = class(JvDriveCtrls.TJvFileListBox)
  private
    ListeDateien: TStringList;
    procedure DropFiles(var Msg: TMessage); Message WM_DROPFILES;
    procedure HabeFertig(var Msg: TMessage); Message WM_FERTIG;
  end;
.
.
.
procedure TJvFileListBox.DropFiles(var Msg: TMessage);
var
  i, Anzahl, Size: Integer;
  SourcePfad: PChar;
begin
  ListeDateien:= TStringList.Create;
  Anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, SourcePfad, 255);
  for i := 0 to (Anzahl - 1) do
    begin
      Size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
      SourcePfad:= StrAlloc(Size);
      DragQueryFile(Msg.WParam,i , SourcePfad, Size);
      Pfad:= ExtractFilePath(StrPas(SourcePfad));
      Dateiname:= Copy(StrPas(SourcePfad),Length(Pfad)+1,Length(StrPas(SourcePfad))- Length(Pfad));
      ListeDateien.Add(Dateiname);
      StrDispose(SourcePfad);
    end;
  DragFinish(Msg.WParam);
  PostMessage(Handle, WM_FERTIG, 0, 0);
end;

procedure TJvFileListBox.HabeFertig(var Msg: TMessage);
var
  i: Integer;
begin
  SetForegroundWindow(FAnlagenkomponenten.Handle);
  if BestatigungK then
    begin
      if MessageDlg('Kopieren von ' + IntToStr(ListeDateien.Count) + ' Dateien nach ' + 
                     FAnlagenkomponenten.DocVerzeichnis.Text + ' ?',mtConfirmation, [mbYes, mbNo], 0) = mrNo then
        begin
          exit;
        end;
    end;
  for i := 0 to ListeDateien.Count -1 do
    begin
      Dateiname:= ListeDateien.Strings[i];
      CopyFile(PChar(Pfad + Dateiname),PChar(FAnlagenkomponenten.DocVerzeichnis.Text + '\'+ Dateiname),false);
    end;
  FAnlagenkomponenten.JvFileListBox1.Update;
  ListeDateien.Free;
end;

Danke für Tipps...

[bepe]

Wird dein Programm evtl. mit admin-Rechten gestartet oder liegen die Dateien in einem Ordner auf den nicht jedes Programm zugreifen darf? Könnte mir bei Vista ein Rechte-Problem gut vorstellen.

[haentschman]

Das Programm läuft mit Adminrechten...auf die Ordner habe ich Zugriff (Quelle + Ziel)

Danke für die schnelle Reaktion.

[xaromz]

Hallo,

wenn Dein Programm mit Adminrechten läuft, kann es keine Drop-Nachrichten von anderen (Nicht-Admin-)Programmen erhalten. Das ist aus Sicherheitsgründen so gewollt. Wenn Du Notepad als Admin startest, kannst Du auch nichts mehr reindroppen.

Gruß
xaromz

[haentschman]

Hallo

Zitat:

kann es keine Drop-Nachrichten von anderen (Nicht-Admin-)Programmen erhalten.

...und du hast Recht.

Wenn ich das Quellprogramm auch mit Adminrechten starte funktioniert das ganze wieder.
...dann muß ich mal das Konzept überdenken.
Das Problem stellen Downloads beim Onlineupdate dar welche ins Programmverzeichnis gehören.
... findet sich eine Lösung 8)

Danke nochmal...wieder etwas schlauer