Forum: Netzwerke
Delphi
by marabu,
12. Mär 2006
Den Fehler kannst du leicht beseitigen, wenn du den Code etwas änderst:
procedure TDemoForm.UrlButtonClick(Sender: TObject);
var
sw: IShellWindows;
i: Integer;
begin
sw := CoShellWindows.Create;
for i := 0 to Pred(sw.Count) do
Forum: Netzwerke
Delphi
by marabu,
12. Mär 2006
Hallo Jan,
lass dir in der Schleife die Fenstergriffe ausgeben und vergleiche mit den Werten aus deinem Tool - vielleicht kannst du dann sehen, was schief läuft:
procedure TDemoForm.UrlButtonClick(Sender: TObject);
var
sw: IShellWindows;
i: Integer;
begin