XProfan

RGH

allô Horst,

WinExex startet un Programme et kehrt tout de suite zurück, sans cela Ende des Programmes abzuwarten. veux Du attendre, jusqu'à cela aufgerufene Progamm finissez wurde, dois Du WinExecWait verwenden.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

on suis je doof

- steht grand et deutlich dans qui Aider - merci Roland
(on wird plan vieux !)

RGH

allô Horst,
pour Dein spezielles Problem était mon Antwort quelque chose voreilig. ici wartet WinExecwait seulement unwesentlich länger, nämlich jusqu'à cela Öffnen des Papierkorbes abgeschlossen ist. si Du mais attendre veux, jusqu'à cela Explorerfenster des Papierkorbes geschlossen wird, müßtest Du attendre, jusqu'à ne...aucune la fenêtre avec dessen Überschrift plus existiert. So funktioniert es chez mir:
Kompilieren Marque Séparation

DECLARE EE%,ende%,aufruf%
EE%=0
----------------------------------------------

PROC MELDUNG

    Messagebox("Es ist vollbracht !","Meldung",64)

ENDPROC

PROC STARTE_AUFRUF

    Declare Papierkorb&
    Papierkorb starten - Es kann auch eine andere Windows-Funktion sein - Das ist nur ein Beispiel
    WinExec("explorer /n,::{645FF040-5081-101B-9F08-00AA002F954E}",1)
    warten, bis das Fenster tatsächlich existiert
    Repeat : Until FindWindow("Papierkorb") <> 0
    warten, bis es wieder weg ist
    Repeat : Until FindWindow("Papierkorb") = 0
    MELDUNGDer Aufruf soll erst nach dem Schliessen des Papierkorbes angezeigt werden

ENDPROC

----------------------------------------------
CLS
ende%=Create("Button",%hwnd,"Ende",10,10,100,25)
aufruf%=Create("Button",%hwnd,"Windows-Papierkorb",10,50,200,25)

WhileNot EE%

    WAITINPUT
    Case CLICKED(ende%):EE%=1
    Case CLICKED(aufruf%):STARTE_AUFRUF

EndWhile

end

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Pour "Papierkorb" chercher?

dans diesem le cas sollte on sich plutôt avec cela abfinden, dass qui opération nunmal asynchon abläuft. (comme aussi gedacht ist)

qui so gezielt cependant den corbeille à papier "verwalten" voudrais, qui devrait arrêt qui corbeille à papier-APIs anwenden.

@iF
cela était seulement un Beispiel -
und dir um 15 verschiedene Windows-Funktionen, qui facultativement gestartet volonté peut et ici soll
pour dem Schliessen qui jeweiligen Funktion une Aktion stattfinden ! - Compri ???

je nix Compri Problem. Compri doch la fois aussi juste Herunterfahren. Ist oui aussi une "Windows-Funktion". une 16.! seulement un <b>Beispiel</b>!

@Lieber iF
dans einem kleinen Tool aus meiner plume volonté im Menu 15 Windows-Funktionen zur Disposition gestellt. (qui Code pour schwirrte ici irgendwo rum) - Um mais chez diesem Programme Set("Autopaint",0) trop tourner autour de, muss je aus einem certain Grund Pour dem Schliessen qui jeweiligen Windows-Funktion une bestimmte Procedur appel (un partie qui surface (Icônes) wird nämlich par cela récente geöffnete la fenêtre gelöscht) et cette Procedur volonté cet Icônes wieder hergestellt. So, comment dankenswerterweise Roland mir geholfen hat, funktioniert qui l'affaire maintenant.

Compri ?

Jörg
Sellmeyer

et maintenant Alle:
"Ich soll dans einem anspruchsvollen et vernünftig erscheinenden Programme ne...aucune "DrawIcon" verwenden, mais avec Créer() un Handle erzeugen et cela einem Static zuweisen!"
.
.
.
.
.
.
.
.
.
Amen!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

E.T.

Jörg Sellmeyer: et maintenant Alle:
"Ich soll dans einem anspruchsvollen et vernünftig erscheinenden Programme ne...aucune "DrawIcon" verwenden, mais avec Créer() un Handle erzeugen et cela einem Static zuweisen!"
.

dans XP10 hab cela Handle ensuite einem Contrôle zugewiesen (zuweisen doit, weils un Button avec 2-zeiligem Text était), et hab cela Dingens toujours "refresht", si je aus einer waitinput-Boucle zurück était.

Obs maintenant dans XP11 einfacher allez, doit je seulement la fois checken (habs seulement depuis ner semaine)

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

@Jörg - pour Alle

CASE 1L$ > »:w32_DrawIcon(%hdc,340,265,ExtractAssociatedIcon(1L$+"\",1))

ensuite mach la fois ;)

23.10.2008 ▲