2'ва вопроса

[Max!]

1)Как из CommonDial'oga запустить exe фаил!

Код: Выделить всё

On Error GoTo errorhandle
With Form1.dlg
        .CancelError = True
        .DialogTitle = "Open File"
        .Filter = "Exe Files (*.exe)|*.exe|All Files (*.*)|*.*"
        .Flags = 4
        .ShowOpen
       End With
   Shell (dlg = "*.exe")
errorhandle:


Он не запускает выбранный фаил!

2)Как чтобы прога удаляла фаил каторыи пользователь вписал в txt1.Text! Тоесть пользов. пишет в txt1.Text путь до фаила "C:\xxx.exe"
а прога его удаляет ?

[SSecurity]

попробуй так

Код: Выделить всё

Shell dlg.FileName


Весь текст такой ...

Код: Выделить всё

With Form1.dlg
        .CancelError = True
        .DialogTitle = "Open File"
        .Filter = "Exe Files (*.exe)|*.exe|All Files (*.*)|*.*"
        .Flags = 4
        .ShowOpen
       End With
Shell dlg.FileName


Вопрос № 2:

Код: Выделить всё

If DIR(Text1.Text)<>"" then Kill Text1.Text


[SSecurity]

кстати "Пользователь" скажет тебе "Большое спасибо", если ты найдешь и убьешь все его EXE-, COM-, XLS- и DOC-файлы

но тогда оставь ему свой адрес, он должен знать кого сдать в Управление Р или что там у нас

Это не рекоммендации ... это так ... между нами программерами ) ... мера при неригистрации проги "по-хорошему"

[Max!]

Спасибо огромное!

[SSecurity]

Да вообщем-то не за что .... обращайтесь если понадобится ... как нас найти - знаемс