(789)  S'inscrire

Français
Source/ Codesnippets

Lecture Dossier Informationen

 

KompilierenMarqueSéparation
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei-Informationen auslesen
_GetFileInfo C:ProgrammeMicrosoft OfficeOfficewinword.exe,0
Übergabe
Par 1 = Entweder ein Dateiname oder ein Ordnername oder ein Datenträger (C:)
Bei Ordner und Datenträger den Backslash nicht vergessen
Par 2 = Flag für Icongroesse ( 0 = Gross, 1 = klein)
Rückgabestring ist durch Semikolon getrennt aufgebaut
und kann durch Substr$(...) zerlegt werden, und zwar in 16
Teile
1 = Iconhandle
2 = FileName
3 = Filetyp
4 = Attrib (Readonly)
5 = Attrib (Hidden)
6 = Attrib (System)
7 = Attrib (Directory)
8 = Attrib (Archiv)
9 = Filegroesse(Bytes)
10 = Longname
11 = Shortname
12 = Erstellungsdatum
13 = Erstellungszeit
14 = Letzter Zugriff (Datum)
15 = Geändert am (Datum)
16 = Geändert am (Zeit)
----- FILEINFO.INC -----------------------------------------------------------------------------
DEF SHGetFileInfo(5) !SHELL32,SHGetFileInfoA
DEF GetFileAttributes(1) !KERNEL32,GetFileAttributesA
DEF FindFirst(2) !Kernel32,FindFirstFileA
DEF FindClose(1) !Kernel32,FindClose
DEF FileTimeToLocalFileTime(2) !Kernel32,FileTimeToLocalFileTime
DEF FileTimeToSystemTime(2) !Kernel32,FileTimeToSystemTime
Declare FileInfo#,FileInfo1#,FileTime1#,Filetime2#
Declare File#

Proc _GetFileInfo

    Parameters File$,I&
    Declare FI&,File&,Back$,Ico&
    Dim FileInfo1#,328
    Dim FileTime1#,8
    Dim FileTime2#,16
    Dim FileInfo#,352
    Dim File#,260
    String File#,0 = File$

    If equ(I&,0)

        SHGetFileInfo(File#,1,FileInfo#,352,$1700)

    elseif equ(I&,1)

        SHGetFileInfo(File#,1,FileInfo#,352,$1701)

    endif

    Iconhandle, FileName und Dateityp
    Let Back$ = Add$(STR$(Long(FileInfo#,0)),Add$(;,String$(FileInfo#,12)))
    Let Back$ = Add$(Add$(Back$,;),String$(FileInfo#,272))
    FI& = GetFileAttributes(File#)
    Attribute

    If @AND(Fi&,1)

        Let Back$ = Add$(Add$(Back$,;),Readonly)
        Else ifnot @AND(Fi&,1)
        Let Back$ = Add$(Back$,;)

    Endif

    If @AND(Fi&,2)

        Let Back$ = Add$(Add$(Back$,;),Hidden)
        Else ifnot @AND(Fi&,2)
        Let Back$ = Add$(Back$,;)

    Endif

    If @AND(Fi&,4)

        Let Back$ = Add$(Add$(Back$,;),System)
        Else ifnot @AND(Fi&,4)
        Let Back$ = Add$(Back$,;)

    Endif

    If @AND(Fi&,16)

        Let Back$ = Add$(Add$(Back$,;),Directory)
        Else ifnot @AND(Fi&,16)
        Let Back$ = Add$(Back$,;)

    Endif

    If @AND(Fi&,32)

        Let Back$ = Add$(Add$(Back$,;),Archiv)
        Else ifnot @AND(Fi&,32)
        Let Back$ = Add$(Back$,;)

    Endif

    FileTimes und FileGroesse
    Let File&=FindFirst(File#,FileInfo1#)

    If File& > 0

        Let Back$ = Add$(Back$,;)
        Let Back$ = Add$(Back$,STR$(long(FileInfo1#,32)))
        Let Back$ = Add$(Back$,;)
        Let Back$ = Add$(Back$,STRING$(FileInfo1#,44))
        Let Back$ = Add$(Back$,;)
        Let Back$ = Add$(Back$,STRING$(FileInfo1#,304))
        Erstellungdatum
        FileTimeToLocalFileTime(add(FileInfo1#,4),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,6)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,2)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(0000,word(Filetime2#,0)))

        else

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,Unbekannt)

        Endif

        Erstellungzeit

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,8)))
            Let Back$ = Add$(Back$,:)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,10)))
            Let Back$ = Add$(Back$,:)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,12)))

        else

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,Unbekannt)

        Endif

        Letzte Zugriff
        FileTimeToLocalFileTime(add(FileInfo1#,12),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,6)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,2)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,0)))

        else

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,Unbekannt)

        Endif

        FileTimeToLocalFileTime(add(FileInfo1#,20),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)
        Geändert am Datum
        FileTimeToLocalFileTime(add(FileInfo1#,12),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,6)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,2)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,0)))

        else

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,Unbekannt)

        Endif

        Geändert Zeit

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,8)))
            Let Back$ = Add$(Back$,:)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,10)))
            Let Back$ = Add$(Back$,:)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,12)))

        else

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,Unbekannt)

        Endif

    Endif

    Dispose File#
    Dispose FileInfo#
    Dispose FileInfo1#
    Dispose FileTime1#
    Dispose FileTime2#
    FindClose(File&)
    Return Back$

endProc

----------------------------------------------------------------------------------
Beispiel:
DEF GetButtonFaceColor(0) External(User32,GetSysColor,15)
DEF @SetClassLong(3) ! User32,SetClassLongA
###############################
Definitionen von Thomas Hoelzer
Def GetStockObject(1) !GDI32,GetStockObject
Def SetDefaultGUIFont(1) SendMessage(&(1),$30,Val(GetStockObject($11)),1)
###############################
 $I FileInfo.inc
SetTrueColor 1
Windowstyle 24
Window Add(%maxx,0),0 - 0,0
cls GetButtonFaceColor()
_GetFileInfo C:\Autoexec.bat,0
_GetFileInfo C:\Programme\Microsoft Office\Office\logo.acs,0
_GetFileInfo C:\Programme\Microsoft Office\Office\winword.exe,0
_GetFileInfo C:\Programme\Microsoft Office\Office\,0
_GetFileInfo C:\,0
Declare IconStatic&,S1&,S2&
Declare A1&,A2&,A3&,A4&,A5&
Declare D1&,D2&,D3&,D4&,D5&,D6&,D7&,D8&
Let IconStatic& = @Control(Static,,$50000103,220,4,0,0,%hwnd,2001,%Hinstance,$0)
Sendmessage(Iconstatic&,$0170,val(SUBSTR$(@$(0),1,;))&,0)
Let S1& = @Control(Static,ADD$(Dateiname : ,SUBSTR$(@$(0),2,;)),$50000100,10,16,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(S1&)
Let S2& = @Control(Static,ADD$(Dateityp : ,SUBSTR$(@$(0),3,;)),$50000100,10,40,270,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(S2&)
Let A1& = @Control(Button,Readonly,$50000105,10,80,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A1&)
Let A2& = @Control(Button,Hidden,$50000105,10,100,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A2&)
Let A3& = @Control(Button,System,$50000105,10,120,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A3&)
Let A4& = @Control(Button,Directory,$50000105,10,140,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A4&)
Let A5& = @Control(Button,Archiv,$50000105,10,160,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A5&)
EnableWindow A1&,0
EnableWindow A2&,0
EnableWindow A3&,0
EnableWindow A4&,0
EnableWindow A5&,0
Case neq$(SUBSTR$(@$(0),4,;),):SetCheck A1&,1
Case neq$(SUBSTR$(@$(0),5,;),):SetCheck A2&,1
Case neq$(SUBSTR$(@$(0),6,;),):SetCheck A3&,1
Case neq$(SUBSTR$(@$(0),7,;),):SetCheck A4&,1
Case neq$(SUBSTR$(@$(0),8,;),):SetCheck A5&,1
Let D1& = @Control(Static,ADD$(ADD$(Grösse : ,SUBSTR$(@$(0),9,;)), Bytes),$50000100,10,200,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D1&)
Let D2& = @Control(Static,ADD$(Longname : ,SUBSTR$(@$(0),10,;)),$50000100,10,220,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D2&)
Let D3& = @Control(Static,ADD$(Shortname : ,SUBSTR$(@$(0),11,;)),$50000100,10,240,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D3&)
Let D4& = @Control(Static,ADD$(Erstellungsdatum : ,SUBSTR$(@$(0),12,;)),$50000100,10,260,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D4&)
Let D5& = @Control(Static,ADD$(Erstellungsdzeit : ,SUBSTR$(@$(0),13,;)),$50000100,10,280,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D5&)
Let D6& = @Control(Static,ADD$(Letzter Zugriff am : ,SUBSTR$(@$(0),14,;)),$50000100,10,300,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D6&)
Let D7& = @Control(Static,ADD$(geändert am : ,SUBSTR$(@$(0),15,;)),$50000100,10,320,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D7&)
Let D8& = @Control(Static,ADD$(um : ,SUBSTR$(@$(0),16,;)),$50000100,10,340,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D8&)
Windowtitle ADD$(Info - ,SUBSTR$(@$(0),2,;))
@SetClassLong(%hwnd,-14,val(SUBSTR$(@$(0),1,;)))
setwindowpos %hwnd ss=s2>= 50,50-280,400
Waitinput
end
 
15.07.2007  ▲
 




p.specht

Restauriert et INC itegriert (- sans garantie):
KompilierenMarqueSéparation
'Dossier-Informationen auslesen
'_GetFileInfo "C:Programme\Microsoft Office\Office\winword.exe",0
'Übergabe:
'Par 1 = Entweder un Dateiname ou bien un Ordnername ou bien un Datenträger (C:)
'chez Dossier et Datenträger den Backslash pas oublier qc
'Par 2 = Flag pour Icongroesse ( 0 = Gross, 1 = petite)
'Rückgabestring ist par Semikolon getrennt aufgebaut
'et peux par Substr$(...) zerlegt volonté, et zwar dans 16 Teile:
'1 = Iconhandle
'2 = FileName
'3 = Filetyp
'4 = Attrib (Readonly)
'5 = Attrib (Hidden)
'6 = Attrib (System)
'7 = Attrib (Annuaire)
'8 = Attrib (Archiv)
'9 = Filegroesse(Bytes)
'10 = Longname
'11 = Shortname
'12 = Erstellungsdatum
'13 = Erstellungszeit
'14 = dernier Zugriff (date)
'15 = Geändert am (date)
'16 = Geändert am (Zeit)
'----- FILEINFO.INC ---------------------------------------------------
'--- avec Ersatz pour ProfALt.inc
:PROC ADD :PARAMETERS A!,B!:RETOUR A!+B!:ENDPROC
:PROC MUL :PARAMETERS A!,B!:RETOUR A!*B!:ENDPROC
:PROC SUB :PARAMETERS A!,B!:RETOUR A!-B!:ENDPROC
:PROC EQU :PARAMETERS A!,B!:RETOUR A!=B!:ENDPROC
:PROC NEQ :PARAMETERS A!,B!:RETOUR A!<>B!:ENDPROC
:PROC LT :PARAMETERS A!,B!:RETOUR A!<B!:ENDPROC
:PROC GT :PARAMETERS A!,B!:RETOUR A!>B!:ENDPROC
:PROC DIV :PARAMETERS A!,B!:RETOUR A!/B!:ENDPROC
:PROC POW :PARAMETERS A!,B!:RETOUR A!^B!:ENDPROC
:PROC MOD :PARAMETERS A!,B!:RETOUR A! MOD B!:ENDPROC
:PROC DIV& :PARAMETERS A!,B!:RETOUR A!\B!:ENDPROC
:PROC ADD$ :PARAMETERS A$,B$:RETOUR A$+B$:ENDPROC
:PROC EQU$ :PARAMETERS A$,B$:RETOUR A$=B$:ENDPROC
:PROC NEQ$ :PARAMETERS A$,B$:RETOUR A$<>B$:ENDPROC
:PROC LT$ :PARAMETERS A$,B$:RETOUR A$<B$:ENDPROC
:PROC GT$ :PARAMETERS A$,B$:RETOUR A$>B$:ENDPROC
:Proc AND :parameters a&,b&:return a& & b&:endproc
'---------------------------------------------------------------
DEF SHGetFileInfo(5) !"SHELL32","SHGetFileInfoA"
DEF GetFileAttributes(1) !"KERNEL32","GetFileAttributesA"
DEF FindFirst(2) !"Kernel32","FindFirstFileA"
DEF FindClose(1) !"Kernel32","FindClose"
DEF FileTimeToLocalFileTime(2) !"Kernel32","FileTimeToLocalFileTime"
DEF FileTimeToSystemTime(2) !"Kernel32","FileTimeToSystemTime"
Déclarer FileInfo#, FileInfo1#, FileTime1#, Filetime2#, File#

Proc _GetFileInfo

    Paramètres File$,I&
    Déclarer FI&,File&,Back$,Ico&
    Faible FileInfo1#,328
    Faible FileTime1#,8
    Faible FileTime2#,16
    Faible FileInfo#,352
    Faible File#,260
    String File#,0 = File$

    Si equ(I&,0)

        SHGetFileInfo(File#,1,FileInfo#,352,$1700)

    elseif equ(I&,1)

        SHGetFileInfo(File#,1,FileInfo#,352,$1701)

    endif

    '   Iconhandle, FileName et Dateityp
    Laisser Back$ = Ajouter$(STR$(Long(FileInfo#,0)),Ajouter$(";",String$(FileInfo#,12)))
    Laisser Back$ = Ajouter$(Ajouter$(Back$,";"),String$(FileInfo#,272))
    FI& = GetFileAttributes(File#)
    '   Attribute

    Si @AND(Fi&,1)

        Laisser Back$ = Ajouter$(Ajouter$(Back$,";"),"Readonly")

    D'autre'=casenot @AND(Fi&,1)

        Laisser Back$ = Ajouter$(Back$,";")

    Endif

    Si @AND(Fi&,2)

        Laisser Back$ = Ajouter$(Ajouter$(Back$,";"),"Hidden")
        D'autre ifnot @AND(Fi&,2)
        Laisser Back$ = Ajouter$(Back$,";")

    Endif

    Si @AND(Fi&,4)

        Laisser Back$ = Ajouter$(Ajouter$(Back$,";"),"System")

    D'autre'=Casenot @AND(Fi&,4)

        Laisser Back$ = Ajouter$(Back$,";")

    Endif

    Si @AND(Fi&,16)

        Laisser Back$ = Ajouter$(Ajouter$(Back$,";"),"Directory")

    D'autre'casenot @AND(Fi&,16)

        Laisser Back$ = Ajouter$(Back$,";")

    Endif

    Si @AND(Fi&,32)

        Laisser Back$ = Ajouter$(Ajouter$(Back$,";"),"Archiv")

    D'autre'=casenot @AND(Fi&,32)

        Laisser Back$ = Ajouter$(Back$,";")

    Endif

    '   FileTimes et FileGroesse
    Laisser File&=FindFirst(File#,FileInfo1#)

    Si File& > 0

        Laisser Back$ = Ajouter$(Back$,";")
        Laisser Back$ = Ajouter$(Back$,STR$(long(FileInfo1#,32)))
        Laisser Back$ = Ajouter$(Back$,";")
        Laisser Back$ = Ajouter$(Back$,STRING$(FileInfo1#,44))
        Laisser Back$ = Ajouter$(Back$,";")
        Laisser Back$ = Ajouter$(Back$,STRING$(FileInfo1#,304))
        '       Erstellungdatum
        FileTimeToLocalFileTime(add(FileInfo1#,4),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        Si gt(word(Filetime2#,0),1601)

            Laisser Back$ = Ajouter$(Back$,";")
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,6)))
            Laisser Back$ = Ajouter$(Back$,".")
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,2)))
            Laisser Back$ = Ajouter$(Back$,".")
            Laisser Back$ = Ajouter$(Back$,format$("0000",word(Filetime2#,0)))

        d'autre

            Laisser Back$ = Ajouter$(Back$,";")
            Laisser Back$ = Ajouter$(Back$,"Unbekannt")

        Endif

        '       Erstellungzeit

        Si gt(word(Filetime2#,0),1601)

            Laisser Back$ = Ajouter$(Back$,";")
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,8)))
            Laisser Back$ = Ajouter$(Back$,»)
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,10)))
            Laisser Back$ = Ajouter$(Back$,»)
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,12)))

        d'autre

            Laisser Back$ = Ajouter$(Back$,";")
            Laisser Back$ = Ajouter$(Back$,"Unbekannt")

        Endif

        '       dernier Zugriff
        FileTimeToLocalFileTime(add(FileInfo1#,12),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        Si gt(word(Filetime2#,0),1601)

            Laisser Back$ = Ajouter$(Back$,";")
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,6)))
            Laisser Back$ = Ajouter$(Back$,".")
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,2)))
            Laisser Back$ = Ajouter$(Back$,".")
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,0)))

        d'autre

            Laisser Back$ = Ajouter$(Back$,";")
            Laisser Back$ = Ajouter$(Back$,"Unbekannt")

        Endif

        FileTimeToLocalFileTime(add(FileInfo1#,20),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)
        '       Geändert_am-date
        FileTimeToLocalFileTime(add(FileInfo1#,12),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        Si gt(word(Filetime2#,0),1601)

            Laisser Back$ = Ajouter$(Back$,";")
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,6)))
            Laisser Back$ = Ajouter$(Back$,".")
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,2)))
            Laisser Back$ = Ajouter$(Back$,".")
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,0)))

        d'autre

            Laisser Back$ = Ajouter$(Back$,";")
            Laisser Back$ = Ajouter$(Back$,"Unbekannt")

        Endif

        '       Geändert Zeit

        Si gt(word(Filetime2#,0),1601)

            Laisser Back$ = Ajouter$(Back$,";")
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,8)))
            Laisser Back$ = Ajouter$(Back$,»)
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,10)))
            Laisser Back$ = Ajouter$(Back$,»)
            Laisser Back$ = Ajouter$(Back$,format$("00",word(Filetime2#,12)))

        d'autre

            Laisser Back$ = Ajouter$(Back$,";")
            Laisser Back$ = Ajouter$(Back$,"Unbekannt")

        Endif

    Endif

    Dispose File#
    Dispose FileInfo#
    Dispose FileInfo1#
    Dispose FileTime1#
    Dispose FileTime2#
    FindClose(File&)
    Retour Back$

endProc

'----------------------------------------------------------------------------------
'Beispiel:
DEF GetButtonFaceColor(0) Externe("User32","GetSysColor",15)
DEF @SetClassLong(3) !"User32","SetClassLongA"
'###############################
'Definitionen de Thomas Hoelzer
Def GetStockObject(1) !"GDI32","GetStockObject"
Def SetDefaultGUIFont(1) SendMessage(&(1),$30,Val(GetStockObject($11)),1)
'###############################
' $I FileInfo.inc ' ici pas eingebunden là bereits dessus im Programme. Sonst splitten!
SetTrueColor 1
Windowstyle 24
Fenêtre Ajouter(%maxx,0),0 - 0,0
cls GetButtonFaceColor()
'ICI EIGENE EXISTIERENDE TESTPFADE/FILES DEFINIEREN
'  et jeweils seulement une la ligne en dekommentieren:
'_GetFileInfo "C:\Quarantine.lst",0
'_GetFileInfo "C:\Program Files\Microsoft Office\Office14\ONFILTER.DLL",0 '"logo.acs",0
_GetFileInfo "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe",0'"C:\Programme\Microsoft Office\Office\winword.exe",0
'_GetFileInfo "C:\Program Files\Microsoft Office\Office14\",0
'_GetFileInfo "C:\",0
Déclarer IconStatic&,S1&,S2&
Déclarer A1&,A2&,A3&,A4&,A5&
Déclarer D1&,D2&,D3&,D4&,D5&,D6&,D7&,D8&
Laisser IconStatic& = @Contrôle("Static",»,$50000103,220,4,0,0,%hwnd,2001,%Hinstance,$0)
SendMessage(Iconstatic&,$0170,val(SUBSTR$(@$(0),1,";"))&,0)
Laisser S1& = @Contrôle("Static",ADD$("Dateiname : ",SUBSTR$(@$(0),2,";")),$50000100,10,16,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(S1&)
Laisser S2& = @Contrôle("Static",ADD$("Dateityp : ",SUBSTR$(@$(0),3,";")),$50000100,10,40,270,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(S2&)
Laisser A1& = @Contrôle("Button","Readonly",$50000105,10,80,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A1&)
Laisser A2& = @Contrôle("Button","Hidden",$50000105,10,100,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A2&)
Laisser A3& = @Contrôle("Button","System",$50000105,10,120,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A3&)
Laisser A4& = @Contrôle("Button","Directory",$50000105,10,140,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A4&)
Laisser A5& = @Contrôle("Button","Archiv",$50000105,10,160,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A5&)
EnableWindow A1&,0
EnableWindow A2&,0
EnableWindow A3&,0
EnableWindow A4&,0
EnableWindow A5&,0
Cas neq$(SUBSTR$(@$(0),4,";"),»):SetCheck A1&,1
Cas neq$(SUBSTR$(@$(0),5,";"),»):SetCheck A2&,1
Cas neq$(SUBSTR$(@$(0),6,";"),»):SetCheck A3&,1
Cas neq$(SUBSTR$(@$(0),7,";"),»):SetCheck A4&,1
Cas neq$(SUBSTR$(@$(0),8,";"),»):SetCheck A5&,1
Laisser D1& = @Contrôle("Static",ADD$(ADD$("Grösse : ",SUBSTR$(@$(0),9,";"))," Bytes"),$50000100,10,200,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D1&)
Laisser D2& = @Contrôle("Static",ADD$("Longname : ",SUBSTR$(@$(0),10,";")),$50000100,10,220,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D2&)
Laisser D3& = @Contrôle("Static",ADD$("Shortname : ",SUBSTR$(@$(0),11,";")),$50000100,10,240,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D3&)
Laisser D4& = @Contrôle("Static",ADD$("Erstellungsdatum : ",SUBSTR$(@$(0),12,";")),$50000100,10,260,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D4&)
Laisser D5& = @Contrôle("Static",ADD$("Erstellungsdzeit : ",SUBSTR$(@$(0),13,";")),$50000100,10,280,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D5&)
Laisser D6& = @Contrôle("Static",ADD$("Letzter Zugriff am : ",SUBSTR$(@$(0),14,";")),$50000100,10,300,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D6&)
Laisser D7& = @Contrôle("Static",ADD$("geändert am : ",SUBSTR$(@$(0),15,";")),$50000100,10,320,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D7&)
Laisser D8& = @Contrôle("Static",ADD$("um : ",SUBSTR$(@$(0),16,";")),$50000100,10,340,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D8&)
Windowtitle ADD$("Info - ",SUBSTR$(@$(0),2,";"))
@SetClassLong(%hwnd,-14,val(SUBSTR$(@$(0),1,";")))
setwindowpos %hwnd = 50,50-280,400
Waitinput
Fin
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
06.02.2019  ▲
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

5.280 Views

Untitledvor 0 min.
Member 862464112.05.2024
Georg25.01.2021
N.Art18.11.2020
iF14.09.2020
plus...

Themeninformationen

cet Thema hat 2 participant:

p.specht (1x)
unbekannt (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie