Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

Freestyle Basic Language

Последователи

12 май 200620 г.

Значе имам въпрос относно тази програма. Искам да си направя програма с която като цъкна бутон да ми рънва програма.

Примерно давам бутона " Скайп " и ми рънва Скайпа.

И така.

Ако някой може да хелпне, мерси предварително.

12 май 200620 г.

Ето един малък пример. Бутона стартира Skype, но можеш да го промениш и да сложиш още бутони с други команди.

#Option Explicit


#DllDeclare Shell32("ShellExecute")


Begin Const

	ID_Bar = 100

End Const


Fbsl_Control("button", ME, "SKYPE", _

ID_Bar, 10, 10, 80, 30, WS_CHILD + WS_TABSTOP + WS_VISIBLE, 0)



Center(ME)

Show (ME)


Begin Events

	Select Case CBMSG

	Case WM_COMMAND

		If CBWPARAM = ID_Bar Then

			ShellExecute(0, "OPEN", "C:\Program Files\Skype\Phone\SKYPE.EXE", "", "", SW_SHOWNORMAL)

		End If

End Select

End Events