Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> свойства приложения 
V
    Опции темы
hervsem
Дата 25.8.2009, 19:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 24.8.2009

Репутация: нет
Всего: нет
Вобщем задача состоит в том чтобы при запуске приложения оно отмечалось как скрытое. Облазил много форумов но нашел только как сделать приложение помеченным как "только для чтения" и "архивный"

З.Ы Вопрос на засыпку : как убрать из названия приложения .exe ?  чтобы название было не "user.exe" a "user" ?

заранее благодарю

Это сообщение отредактировал(а) hervsem - 25.8.2009, 19:53
PM MAIL   Вверх
Akina
Дата 25.8.2009, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Скрытое - это как? не отображать в диспетчере задач? не отображать его окна? убрать его икону из трея? что-то ещё?

Цитата(hervsem @  25.8.2009,  20:44 Найти цитируемый пост)
Вопрос на засыпку : как убрать из названия приложения .exe ?  чтобы название было не "user.exe" a "user" ?

Изменить отображение папок, включить "скрывать расширения файлов зарегистрированных типов".


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
hervsem
Дата 25.8.2009, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 24.8.2009

Репутация: нет
Всего: нет
Мне нужно чтобы приложение становилось скрытым, тоесть чтобы его небыло видно в папке без установленной галочки в свойствах папки "показывать скрытые файлы и папки"
PM MAIL   Вверх
neic
Дата 25.8.2009, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7
Держи:

Код

Const TH32CS_SNAPPROCESS As Long = 2&

Const MAX_PATH As Long = 260

 

Private Type PROCESSENTRY32

dwSize As Long

cntUsage As Long

th32ProcessID As Long

th32DefaultHeapID As Long

th32ModuleID As Long

cntThreads As Long

th32ParentProcessID As Long

pcPriClassBase As Long

dwflags As Long

szexeFile As String * MAX_PATH

End Type

 

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Private Declare Function CreateToolhelpSnapshot Lib "Kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlgas As Long, ByVal lProcessID As Long) As Long

Private Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long

Private Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long

Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

 

Private Function GetExeFromHandle(hwnd As Long) As String

Dim threadID As Long, processID As Long, hSnapshot As Long

Dim uProcess As PROCESSENTRY32, rProcessFound As Long

Dim i As Integer, szExename As String

threadID = GetWindowThreadProcessId(hwnd, processID)

If threadID = 0 Or processID = 0 Then Exit Function

hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)

If hSnapshot = -1 Then Exit Function

uProcess.dwSize = Len(uProcess)

rProcessFound = ProcessFirst(hSnapshot, uProcess)

Do While rProcessFound

If uProcess.th32ProcessID = processID Then

i = InStr(1, uProcess.szexeFile, Chr(0))

If i > 0 Then szExename = Left$(uProcess.szexeFile, i - 1)

Exit Do

Else

rProcessFound = ProcessNext(hSnapshot, uProcess)

End If

Loop

Call CloseHandle(hSnapshot)

GetExeFromHandle = szExename

End Function

 

Private Sub Command1_Click()

qw = GetExeFromHandle(Me.hwnd)

q = "attrib +h " & App.Path & "\" & qw

a = FreeFile
Open App.Path & "\1.bat" For Output As a
Print #a, q
Close #a

Shell App.Path & "\1.bat"
End
End Sub


если этот батник нужно удалить после выполнения...поищи сам: команды DOS.
PM MAIL WWW ICQ Skype   Вверх
hervsem
Дата 25.8.2009, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 24.8.2009

Репутация: нет
Всего: нет
премного благодарен !
PM MAIL   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0460 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.