gimme md5!-Ein kleines Programm zum Vergleichen von Dateien

[zahor]

@jmit: gar nichts markieren
du öffnest einfach ein paar ordner, z.b. eigene dateien oder programme oder so, und klickst dann zurück im programm auf den button. bei mir funktioniert's unter vista prächtig, win 2000 ist auch kein problem, also wieso sollte xp nicht gehen? probier's doch nochmal
und könntest du deine vorschläge zum interface vielleicht etwas präzisieren? danke. wie gesagt, kritik ist immer willkommen!
@larsi: http://www.delphipraxis.net/internal...ct.php?t=59489 das projekt scheint's aber nicht mehr zu geben...
vllt. hilft dir das weiter: http://www.heise.de/software/download/o0g0s0l3k311 sind bestimmt auch ein paar opensource dabei!

[jmit]

Hallo

Zitat von zahor:

@jmit: gar nichts markieren
du öffnest einfach ein paar ordner, z.b. eigene dateien oder programme oder so, und klickst dann zurück im programm auf den button. bei mir funktioniert's unter vista prächtig, win 2000 ist auch kein problem, also wieso sollte xp nicht gehen? probier's doch nochmal
...

Gemacht wie beschrieben. Bekomme dann folgende Meldung (Siehe Anhang)

[zahor]

hm... das ist komisch. wie man im quelltext sieht greift das programm ja auf gar keine dateien zu (außer natürlich beim errechnen der hashes)!
hast du windows vielleicht nicht auf c: installiert? oder sonst irgendwelche "exotischen" dinge mit deinem windows gemacht? das wären die einzigen möglichkeiten die mir so spontan um halb elf noch einfallen^^

Der quelltext des kopier-buttons ist ja folgender:

Delphi-Quellcode:

var
  ShellWin: IShellWindows;
  i: Integer;
  ClName: array[0..64]of Char;
  Pfad: AnsiString;
begin
  ShellWin := CoShellWindows.Create;
  for i := 0 to Pred(ShellWin.Count) do
    with ShellWin.Item(i) as IWebBrowser2 do
    begin
      GetClassName(hwnd, ClName, SizeOf(ClName));
      if (string(ClName)= 'ExploreWClass') or (string(ClName)= 'CabinetWClass') then
      begin
        Pfad:= StringReplace(LocationURL, 'file:///', '', [rfReplaceAll, rfIgnoreCase]);
        Pfad:= StringReplace(Pfad, '/', '\', [rfReplaceAll]);
        Pfad:= StringReplace(Pfad, '%20', ' ', [rfReplaceAll]);
        if DirectoryExists(Pfad) then
          ListBox1.Items.Add(IncludeTrailingPathDelimiter(Pfad));
        //ListBox1.Items.Add(Format('%d   %s   %s', [HWND, LocationURL, LocationName]))
      end;
    end;

du kannst ja mal den source nehmen und mit f7 compilieren (immer wieder f7 drücken, am besten draufbleiben, du kennst das wahrscheinlich eh) und mir sagen, in welcher zeile der fehler kommt. die md5-berechnungs-blöcke aber am besten per f8 überspringen, sonst sitzt du noch nächstes jahr mit dem finger auf f7 rum^^

EDIT: oder in delphi die listbox vergrößern und visible auf true setzten. sie ist so 8*8 pixel groß in der linken oberen ecke im moment und posten was da drin steht. vllt. vorher noch die kommentierung entfernen damit das ding ein bisschen mehr verrät