Несколько вопросов

[--=GAMER=--]

Сразу к делу ...
1.Нужно узнавать положение x,y курсора, а затем записывать в файл.
При это программа свёрнута в трей( Это сделано) ,а форма скрыта.То есть нужно делать не через Form(или что-то другое:))_MouseMove?!
2.Как скрыть программу чтобы её небыло... видно в
Ctrl + Alt + Delete -> Приложения?
3.Как запихнуть прогу в автозагрузку но чтобы, в папке автозогрузки её небыло, то есть через рееестр?
4.Как связать файлы(расширения) со своей программой?

Ну потом ещё напишу.
Спасибо за ответы.

[Крост]

1.Нужно узнавать положение x,y курсора, а затем записывать в файл.
При это программа свёрнута в трей( Это сделано) ,а форма скрыта.То есть нужно делать не через Form(или что-то другое:))_MouseMove?!

Здесь API "GetCursorPos" вроде. А потом "ScreenToClient".

2.Как скрыть программу чтобы её небыло... видно в
Ctrl + Alt + Delete -> Приложения?

Есть много примеров, но у меня они не работали, да и на ХР вроде не работает это.. =(

3.Как запихнуть прогу в автозагрузку но чтобы, в папке автозогрузки её небыло, то есть через рееестр?

Аха, угадал, именно туда.
Первый путь (для всех пользователей на компе):
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Второй путь (Только для этого пользователя):
HKCU_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Там создать ключик типа REG_SZ, а в параметре этого ключа указать путь к проге.

Пути похожи, только корневые разделы разные.

4.Как связать файлы(расширения) со своей программой?

Пожалуйста поподробнее.. Ты хочешь файлы с твоим расширением открывать твоей программой? Или что-то другое?

С уважением Андрей.

[vvs_adm]

Вообще я новичок, но может чем помогу...

1) Функция WinAPI GetCursorPos(var Point: TPoint);
Считывает экpанные кооpдинаты текущего положения куpсоpа.
Паpаметpы:
Point: Пpинимающая стpуктуpа TPoint.
функция находится в файле user32.dll

3) Ветвь реестра : HKEY_XX\Software\MicroSoft\Windows\CurrentVersion\Run\

4) Ну если не програмно, то правой кнопой мыхи->открыть с помощью->выбрать программу->поставить галку "использовать для всех файлов такого типа"
Если же програмно, то добавить в реестр запись :
[HKEY_CLASSES_ROOT\.расширение твоего файла\Shell\Open\Command] @=путь к экзешнику

[--=GAMER=--]

Пожалуйста с примерами а то тут ещё думать прийдётся!

[Ramzes]

Засунуть прогу в автозагрузку:

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

Private Sub Command1_Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя твоей проги", "Путь к твоей проге"
End Sub

Private Sub Command2_Click() 'Удаление из реестра
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя твоей проги"
End Sub

2.
В ХР никак (ИМХО), Только написать библиотеку на С а потом юзать ее в бейсике

4.

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

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
' Return codes from Registration functions.
Const ERROR_SUCCESS = 0&
Const ERROR_BADDB = 1&
Const ERROR_BADKEY = 2&
Const ERROR_CANTOPEN = 3&
Const ERROR_CANTREAD = 4&
Const ERROR_CANTWRITE = 5&
Const ERROR_OUTOFMEMORY = 6&
Const ERROR_INVALID_PARAMETER = 7&
Const ERROR_ACCESS_DENIED = 8&
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const MAX_PATH = 260&
Private Const REG_SZ = 1

Private Sub Command1_Click()
Dim sKeyName As String
Dim sKeyValue As String
Dim ret&
Dim lphKey&

'Создание ключа "MyApp".
sKeyName = "MyApp"
sKeyValue = "My Application"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'Создание ключа, связанного с "MyApp".
sKeyName = ".BAR"
sKeyValue = "MyApp"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'Коммандная линия для приложения"MyApp".
sKeyName = "MyApp"
sKeyValue = "D:\Basic\MyProjects\SharPad\SharPad.exe %1"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)

End Sub

[_Мика_]

Пожалуйста с примерами а то тут ещё думать прийдётся!

ИШЬ ЧЕ ЗАХОТЕЛ!!!

[--=GAMER=--]

RamzesА код 4 проги можно сократить?
[quote = vvs_adm]

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

[HKEY_CLASSES_ROOT\.расширение твоего файла\Shell\Open\Command] @=путь к экзешнику


[/quote]
- чрез эту строчку например?

[Крост]

Есть аська?
Если да, мне напиши, постараюсь в реалтайм помочь.. =)

[--=GAMER=--]

У меня новые вопросы про трей:
5.Мне нужно сделать меню по нажатию правой или левой кнопки на иконке.При этом я хочу туда добавить картинки.
6.Как это меню можно приукрасить?Например сделать на половину прозрачной?

Крост моя аська 210884115
Завёл тока вчера...

[Mleha]

2.Как скрыть программу чтобы её небыло... видно в
Ctrl + Alt + Delete -> Приложения?

Есть много примеров, но у меня они не работали, да и на ХР вроде не работает это.. =(

2.
В ХР никак (ИМХО), Только написать библиотеку на С а потом юзать ее в бейсике

Из Ctrl + Alt + Delete -> Приложения прога убирается так:

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

2 App.TaskVisible = False

[Крост]

Гы.гы..

[A.A.Z.]

Из процессов тоже можно убрать... Хоть в ХР, хоть в LH... И никаких библиотек сишных не надо...
Вот, даже пример от xenomorph'а нашел:

[--=GAMER=--]

Блин а про 5 и 6. и полный код для 2?
А обьяснения от рамзеса?
Филоните товарищи!

[Ramzes]

А обьяснения от рамзеса?

Какие обьяснения???

[--=GAMER=--]

Мне ОЧЕНЬ понравоился ответ GAMER'а :
>Пожалуйста с примерами а то тут ещё думать прийдётся!
А зачем тебе с примерами если ты думать не хочешь???7 примеры как вставлять в прогу тоже думать надо.....

Дык сравнил думать как написать всю эту (КХмм...) или просто вставить привер?
А от рамзеса я жду пояснений что тут и запчем. Пожалуйста напиши.

[--=GAMER=--]

A.A.Z.
У тебя случайно нет исходника или другого примера?

[A.A.Z.]

Нет.

[Twister]

Вот про меню, видать поиск не работает ...

[Twister]

А вот про скрытие процесса - работает в ХРене, безотказно...

[--=GAMER=--]

Сэнкс, Но ф те времена поиск на форуме не наботал..