LuckieDIPS

[lkz633]

Klappt es mittlerweile mit ActiveDesktop?

Gruss
lkz633

[Luckie]

Nein noch nicht. Nico will sich das wohl mal angucken.

[4toms]

Kann mir mal jemand erklären, worauf die ganze neue Euphorie für LuckieDIPS beruht? Wohl kaum auf dem aktuell aktualisierten Sourcecode. Eher auf den Veröfentlichungen in der ComputerBild?

Wes Wein ich trink, des Lied ich sing...

Die Redakteure der Computerzeitschriften fragen stets vorher an...

Also was ist wem peinlich?

[dizzy]

Was soll das 4toms? Du pupst den ganzen Tag hier schon rum... wirft ein komisches Licht auf dich
(Sorry für ot, lag mich aber am Herzen.)

[4toms]

Zitat von dizzy:

Was soll das 4toms? Du pupst den ganzen Tag hier schon rum... wirft ein komisches Licht auf dich
(Sorry für ot, lag mich aber am Herzen.)

Tschulligung. Kann ich DICH irgendwie per Rezept für mich bekommen?
Absolut kritikresistente Fans hätte ich auch ganz gerne!

Edit: Werde in LuckieDIPS nicht mehr schreiben. Danke.

[NicoDE]

Zitat von 4toms:

Absolut kritikresistente Fans hätte ich auch ganz gerne!

Könnt Ihr das bitte mittels Privater Nachrichten klären, danke.

[Brüggendiek]

Hallo Michael!

Heute habe ich mir Dein Programm runtergeladen und bin arg enttäuscht!

Zitat von Luckie:

Und wieder eine neue Version. Dank eines Wrappers von NicoDE wird jetzt auch Windows98 unterstützt.

1. Wieso bekomme ich da unter Win98 und Win98SE die Meldung, daß NT nötig wäre

Mal sehen, vielleicht komme ich in den nächsten Tagen dazu, das Ganze in D5Standard mal zu debuggen.


2. Unter XP Home konnte die Datei nicht gespeichert werden - aber der Ordner wurde angelegt!

Ist ja auch klar, Du hast ja sinngemäß programmiert:

Delphi-Quellcode:

if FileDelete(dateinamen) then
  speichern else
  fehlermeldung;

Wenn die Datei nicht existiert, kann sie auch nicht gelöscht werden
Nach dem Kopieren der Ini aus dem Source-Ordner klappte es dann - aber nach dem Anklicken des Löschbuttons war (logischerweise) das Problem wieder da.

Irgendwas ist das doch wohl schiefgelaufen - Löschen nur, wenn Datei vorhanden, speichern wenn keine Datei oder Löschen erfolgreich wäre die richtige Vorgehensweise. Ob die Datei existiert, prüfts Du doch ab und schaltest die Buttons entsprechend frei!
Der übliche Fehler - man hat selber die Datei schon auf der Platte und vergißt den Test auf einem frischen System.

Gruß

Dietmar Brüggendiek

[NicoDE]

3. (Win64) Ein 64-Bit Shell-Prozess liefert die Item-Texte nicht da der Zeiger für den Puffer nil ist (wird in der Debug-Version abgefangen und Explorer ignoriert die Nachricht).

Gruß Nico

[NicoDE]

Zitat von Luckie:

Nein noch nicht. Nico will sich das wohl mal angucken.

Folgender Code dürfte das Problem mit dem 'Active Desktop' lösen...

Delphi-Quellcode:

function IsActiveDesktopActive: Boolean;
var
  Progman: HWND;
  DefView: HWND;
begin
  Result := False;
  Progman := FindWindow('Progman', nil);
  if Progman <> HWND(nil) then
  begin
    DefView := FindWindowEx(Progman, HWND(nil), 'SHELLDLL_DefView', nil);
    if DefView <> HWND(nil) then
      Result := FindWindowEx(DefView, HWND(nil), 'HTML_Internet Explorer', nil)
        <> HWND(nil);
  end;
end;

function GetDesktopListView: HWND;
var
  Progman: HWND;
  DefView: HWND;
  function EnumDefViewProc(Wnd: HWND; out DefView: HWND): BOOL; stdcall;
  var
    ClassName: array [0..255] of Char;
  begin
    DefView := Wnd;
    ClassName[0] := #0;
    GetClassName(Wnd, ClassName, 255);
    Result := StrComp(ClassName, 'SHELLDLL_DefView') <> 0;
  end;
begin
  Result := HWND(nil);
  Progman := FindWindow('Progman', nil);
  if Progman <> HWND(nil) then
  begin
    DefView := FindWindowEx(Progman, HWND(nil), 'SHELLDLL_DefView', nil);
    if DefView <> HWND(nil) then
    begin
      if IsActiveDesktopActive then
        EnumChildWindows(DefView, @EnumDefViewProc, LPARAM(@DefView));
      Result := FindWindowEx(DefView, HWND(nil), 'SysListView32', nil);
    end;
  end;
  if Result = HWND(nil) then
    MessageBox(HWND(nil), PChar(ERROR_GETDESKTOPHANDLE), APPNAME, MB_ICONERROR);
end;

Gruss Nico

[Luckie]

Zitat von Brüggendiek:

1. Wieso bekomme ich da unter Win98 und Win98SE die Meldung, daß NT nötig wäre

Ups, da ist wohl noch die Sicherheitsabfrage drinne, weil es früher nur untzer NT und höher ging.

Zitat:

2. Unter XP Home konnte die Datei nicht gespeichert werden - aber der Ordner wurde angelegt!

Ist ja auch klar, Du hast ja sinngemäß programmiert:

Delphi-Quellcode:

if FileDelete(dateinamen) then
  speichern else
  fehlermeldung;

Wenn die Datei nicht existiert, kann sie auch nicht gelöscht werden
Nach dem Kopieren der Ini aus dem Source-Ordner klappte es dann - aber nach dem Anklicken des Löschbuttons war (logischerweise) das Problem wieder da.

Irgendwas ist das doch wohl schiefgelaufen - Löschen nur, wenn Datei vorhanden, speichern wenn keine Datei oder Löschen erfolgreich wäre die richtige Vorgehensweise. Ob die Datei existiert, prüfts Du doch ab und schaltest die Buttons entsprechend frei!
Der übliche Fehler - man hat selber die Datei schon auf der Platte und vergißt den Test auf einem frischen System.

Äh ja. Werde ich mir noch mal angucken müssen. Danke für die Infos.

Nachtrag: Sollte alles erledigt sein. Guckt jetzt bitte noch mal, ob richtig gespeichert wird und ob jetzt auch der Active Desktop unterstützt wird.

Download Links hier im letzten Posting oder gleich im ersten.