XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bildschirmschoner starten
Lauffähig ab Profan-Version 5.0
PRFellow - Vorlage
Autor: Thomas Hölzer
Einige Beispielprozeduren die Win 9x/NT 4.0-Oberfläche betreffend
ShowDesktop - den Desktop ausblenden (0) oder anzeigen (1)
ShowTaskbar - die Taskbar ausblenden (0) oder anzeigen (1)
FormatDriveDlg - den systemeigenen Formatierdialog starten
DiskcopyDlg - den systmeigenen Diskcopydilaog starten
FindFileDlg - den systemeigenen Dateisucher starten
ClearDocMRU - die Liste der zuletzt geöffneten Dateien löschen
StartScreenSaver - Bildschirmschoner starten
Arbeitsplatz - anzeigen
Papierkorb   - anzeigen
Def FindWindow32(2) !USER32,FindWindowA
Def SHClearDocList(2) !SHELL32,SHAddToRecentDocs
Declare winclass#

Proc ShowDesktop

    Parameters show%
    Declare desktop&
    Dim winclass#,8
    String winclass#,0=ProgMan
    Let desktop&=FindWindow32(winclass#,0)
    ShowWindow(desktop&,show%)
    Dispose winclass#

EndProc

Proc ShowTaskBar

    Parameters show%
    Declare htray&
    Dim winclass#,13
    String winclass#,0=Shell_TrayWnd
    Let htray&=FindWindow32(winclass#,0)
    ShowWindow(htray&,show%)
    Dispose winclass#

EndProc

Proc FormatDriveDlg

    WinExec(RUNDLL32 SHELL32.DLL,SHFormatDrive,1)

EndProc

Proc DiskCopyDlg

    WinExec(RUNDLL32 DISKCOPY.DLL,DiskCopyRunDll,1)

EndProc

Proc FindFileDlg

    Declare w&
    Dim winclass#,8
    String winclass#,0=ProgMan
    Let w&=FindWindow32(winclass#,0)
    PostMessage(w&,$0100,$72,0)
    PostMessage(w&,$0101,$72,0)
    Dispose winclass#
    1. Alternative mit DDE:
    DDELink Folders,AppProperties
    Case %ddewin: DDEExecute [OpenFindFile(,)]
    DDETerminate
    2. Alternative ab Profan 6.1:
    ShellExec(C:,find,1)
    3. Alternative siehe finddlg.prv
    4. Alternative - eine Batch-Datei für die DOS-Box
    @echo. > dummy.fnd
    @start dummy.fnd
    @del dummy fnd

EndProc

Proc ClearDocMRU

    SHClearDocList(0,0)

EndProc

Proc StartScreenSaver

    SendMessage(%hwnd,$0112,$F140,0)

EndProc

Proc Arbeitsplatz

    WinExec(explorer /n,::{20D04FE0-3AEA-1069-A2D8-08002B30309D},1)

EndProc

Proc Papierkorb

    WinExec(explorer /n,::{645FF040-5081-101B-9F08-00AA002F954E},1)

EndProc

Proc RefreshDesktop

    siehe auch redraw.prv für umfassenden Refresh!
    Declare w&
    Dim winclass#,8
    String winclass#,0=ProgMan
    Let w&=FindWindow32(winclass#,0)
    PostMessage(w&,$0100,$74,0)
    PostMessage(w&,$0101,$74,0)
    Dispose winclass#

EndProc