Fragen zu TShellListView / TreeView

[bitsetter]

Ein echt fieser Fehler , bei mir liegt es anscheinend an der geänderten Farbe des rechten TShellTreeView, setze mal die Farbe wieder auf clWindow.

[kevin134]

hmmm irgentwie geht jetzt fast gar nichts mehr...
habe das alles mit der progressbar eingefügt,
und sobald ich nur ins rechte shelltreeview bzw listview klicke,
kommt wieder so ein fehler und alles hängt sich auf =(


edit :
anhang hinzugefügt

(programm mit progressbarfunktion)
bitte einmal durchschauen =)
danke

[toms]

Hallo,

TShellListView.Root ist ja gleich rfMyComputer.
Wenn ich nun dein Programm starte, gibt es gleich beim Start eine AV und auch beim Beenden.

Seltsamerweise tritt das Problem nicht auf, wenn Root = rfDesktop

(Getestet unter D6)

[kevin134]

Zitat von toms:

Hallo,

TShellListView.Root ist ja gleich rfMyComputer.
Wenn ich nun dein Programm starte, gibt es gleich beim Start eine AV und auch beim Beenden.

Seltsamerweise tritt das Problem nicht auf, wenn Root = rfDesktop

(Getestet unter D6)

ich habe das zu "MyComputer" geändert,
weil sonst Fehler auftreten,
wenn man versucht direkt auf dem Desktop
Dateien zu kopieren, aber anscheinend muss
ich das in Kauf nehmen ...
Danke ich werde es nacher mal versuchen

mfg
Kevin

[kevin134]

hmmm
das mit der Progressbar bekomm
ich aber irgentwie immer noch
nicht hin =/

[toms]

Zitat von kevin134:

hmmm
das mit der Progressbar bekomm
ich aber irgentwie immer noch
nicht hin =/

Copy & Paste die CopyFileWithProgressBar1 Funktion, setze eine Progressbar auf deine Form

und rufe die Funktion auf:

CopyFileWithProgressBar1('Datei1.xyz', 'Datei2xyz', ProgressBar1);

Delphi-Quellcode:

procedure CopyFileWithProgressBar1(Source, Destination: string; ProgressBar: TProgressBar);
var
  FromF, ToF: file of byte;
  Buffer: array[0..4096] of char;
  NumRead: integer;
  FileLength: longint;
begin
  AssignFile(FromF, Source);
  reset(FromF);
  AssignFile(ToF, Destination);
  rewrite(ToF);
  FileLength := FileSize(FromF);
  with ProgressBar do
  begin
    Min := 0;
    Max := FileLength;
    while FileLength > 0 do
    begin
      BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
      FileLength := FileLength - NumRead;
      BlockWrite(ToF, Buffer[0], NumRead);
      Position := Position + NumRead;
    end;
    CloseFile(FromF);
    CloseFile(ToF);
  end;
end;

[kevin134]

Zitat von toms:

Zitat von kevin134:

hmmm
das mit der Progressbar bekomm
ich aber irgentwie immer noch
nicht hin =/

Copy & Paste die CopyFileWithProgressBar1 Funktion, setze eine Progressbar auf deine Form

und rufe die Funktion auf:

CopyFileWithProgressBar1('Datei1.xyz', 'Datei2xyz', ProgressBar1);

Delphi-Quellcode:

procedure CopyFileWithProgressBar1(Source, Destination: string; ProgressBar: TProgressBar);
var
  FromF, ToF: file of byte;
  Buffer: array[0..4096] of char;
  NumRead: integer;
  FileLength: longint;
begin
  AssignFile(FromF, Source);
  reset(FromF);
  AssignFile(ToF, Destination);
  rewrite(ToF);
  FileLength := FileSize(FromF);
  with ProgressBar do
  begin
    Min := 0;
    Max := FileLength;
    while FileLength > 0 do
    begin
      BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
      FileLength := FileLength - NumRead;
      BlockWrite(ToF, Buffer[0], NumRead);
      Position := Position + NumRead;
    end;
    CloseFile(FromF);
    CloseFile(ToF);
  end;
end;

kann ich auch anstatt Datei xyz auch shelltreeview1 und so nehmen ? ^^