Hi,
@jonk:
Schönen Dank für den Tadel..
Inhaltsverzeichnis der Rar-Datei:
Code
# Archiv D:\AtHome\au3.rar
2006-02-06 14:29 1355 612 au3\Ar3.au3
2006-02-06 14:30 121328 116299 au3\Ar3.exe
2006-02-01 14:04 3249 3249 au3\OberSchlumpf.gif
2006-02-01 14:23 4520 4393 au3\Schlumpf.gif
2006-02-05 23:11 Verzeichnis Verzeichnis au3
2006-02-05 23:18 217 193 au3\ar3-Install.txt
#
# Insgesamt Größe Gepackt Dateien
# 130669 124746 6
Einfach nur das Beispiel abzutippeln wäre mir echt zu blöd gewesen,
schließlich will ich das Skript ja auch benutzen.
Hier nun der Quelltext(als Exe-Datei im Rar-Archiv enthalten)
Spoiler anzeigen
Code
;<AutoItScript>
AutoItSetOption("MustDeclareVars", 1)
AutoItSetOption("TrayIconHide", 1)
;+----------------------------------------------------------------------------+
;| Header: Bestimmen der Übergabeparameter |
;| ( Alles Strings(!!!), bis auf ArgC ) |
;| FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins |
Const $Author="ar3.au3 ©2006 by ytwinky, MD"; |
;| EMail: [EMAIL]PIII1kSystem-AutoIt3Forum@yahoo.de[/EMAIL] |
;| (Tastenkombination: keine) |
;| |
;| Zweck : Schablone für den Anfang, nach Bedarf anpassen |
;| Tab auf 2 setzen wg. Lesbarkeit |
;+----------------------------------------------------------------------------+
Const $Dauer=2000, $Breite=62, $Hoehe=75, $Links=5, $Oben=2, $KeinTitel=1
Dim $s="", $Datei
If IsAdmin() Then $s="Ober"
$Datei=$Datei &$s &"Schlumpf.Gif"
If FileExists($Datei) Then
SplashImageOn("", $Datei, $Breite, $Hoehe, $Links, $Oben, $KeinTitel)
Sleep($Dauer)
Else
MsgBox(64, "Grafik fehlt", $s &"Schlumpf", $Dauer)
EndIf
;</AutoItScript>
Alles anzeigen
Gruß
ytwinky