Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Rekomendowane odpowiedzi

Opublikowano

Dlaczego polecenie Run nie działa?

 

 

#NoTrayIcon

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\bartek\pulpit\form1.kxf

$Pomocnik = GUICreate("Pomocnik by ScreenShoot", 354, 106, 222, 136)

$Pomocnik = GUICtrlCreateMenu("&Pomocnik")

$Program = GUICtrlCreateMenuItem("Otwórz przez Program Files", $Pomocnik)

$Pulpit = GUICtrlCreateMenuItem("Otwórz gdy na pulpicie", $Pomocnik)

$Dysk = GUICtrlCreateMenuItem("Otwórz gdy na innym dysku", $Pomocnik)

$Dysk1 = GUICtrlCreateInput("Dysk", 10,50,70)

$Label1 = GUICtrlCreateLabel("WERSJA DZIALA TYLKO I WYLACZNIE", 8, 16, 341, 28)

GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0xFF0000)

$Label2 = GUICtrlCreateLabel("NA WINDOWS XP !!", 96, 48, 176, 28)

GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0xFF0000)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Program

Run(@ProgramFilesDir & "\dupa\dupa.txt")

TrayTip("Informacja","Akcja zakończona powodzeniem","3")

Case $Pulpit

Run(@DesktopDir & ":\dupa.txt")

TrayTip("Informacja","Akcja zakończona powodzeniem","3")

Case $Dysk

$x = GUICtrlRead($Dysk1)

Run($x & ":\yy.txt")

TrayTip("Informacja","Akcja zakończona powodzeniem","3")

EndSwitch

WEnd

 

mpc.png

×
×
  • Dodaj nową pozycję...