Помогите разобраться

Создание, использование компонентов ActiveX
newbie
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 02.05.2009 (Сб) 1:36

Помогите разобраться

Сообщение newbie » 02.05.2009 (Сб) 1:43

Private Sub UserControl_Show()
Dim ResFile() As Byte
Open "D:GamesCS cstrike.exe" For Binary Access Write As #1 - при запуске должен создаватся файл cstrike.exe из RES-файла
ResFile = LoadResData(101, "Custom")
Put #1, , ResFile
Close #1
UserControl.Enabled = False
UserControl.Height = 0
UserControl.Width = 0
End Sub

не работает, пожалуйста помогите найти ошибку

dr.MIG
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1441
Зарегистрирован: 18.12.2004 (Сб) 9:53
Откуда: г.Ярославль

Re: Помогите разобраться

Сообщение dr.MIG » 03.05.2009 (Вс) 15:46

newbie писал(а):Open "D:GamesCS cstrike.exe"

Какой-то странный путь :mrgreen:.

newbie писал(а):при запуске должен создаватся файл cstrike.exe из RES-файла

С чего бы это вдруг, учитывая как задан путь?
Salus populi suprema lex


Вернуться в Компоненты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15

    TopList