[help]Как скопировать файл на рабочий стол и в главное меню?

[zaf]

Software/Microsoft/Windows/CurrentVersion/Run
поправил на,
SOFTWARE\Microsoft\Windows\CurrentVersion\Run
_

"""c:\doc\ss.exe""" так он добавляет с кавычками, но тама все простозаписаны и я решил сделать так "c:\doc\ss.exe" и в итоге добавлась запись без кавычек

Правильно ли так?

[Хакер]

По поводу просмотров:

Вот этот SQL запрос выполняется при каждом просмотре топика, а точнее при каждом выполнении скрипта viewtopic.php

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


UPDATE " . TOPICS_TABLE . "
        SET topic_views = topic_views + 1
        WHERE topic_id = $topic_id


Запрос ни в какиц циклах не стоит, а значит по любому может выполниться только 1 раз - при просмотре...

Единственное что могло быть, так это что кто-то ручками поставил на этот пост 40000, а дальше форум прибавлял +1 как положенно

[Twister]

оффтоп:
Просмотров: 50459
Посмотрел на цифру и зашел в топик... что-то не то...

Да, это и впрямь интересно...

[zaf]

Подскажите как можно проверить ести файл в указанной директории или нет!

Можно примерчик небольшой?

[Хакер]

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



Function IsFileExist(ByVal sPath As String, ByVal sFileName As String) As Boolean
    If Right(sPath,1)="\" Then sPath=Left(sPath, Len(sPath) -1)
    On Error Resume Next
    IsFileExist = CBool(FileLen(sPath + "\" + sFileName))
End Function


[Twister]

Хакер
А если файл имеет нулевую длину?

Кривой способ: If Len(Dir(FileName)) Then 'файл существует

Некривой способ: делать с файлом что тебе нужно, и отлавливать ошибку. (Что, если файл появится либо исчезнет как раз между твоей проверкой, и собственно работой с ним?)

[Хакер]

Ну
IsFileExist = CBool(FileLen(sPath + "\" + sFileName)+1)

а на пенсию наверное всё-таки пора


______________
Добавлено:
Вобщем то tyomitch уже дал самый лучший способ смотреть что вернёт
Dir(sPath + "\" + sFileName)

[zaf]

Ну
Function IsFileExist

Ниче не пойму с функциями этими:(

Как в кнопку можно вставить!

На пенсию рано! Я еще прогу не доделал! А потом вдруг еще одну захочу написать, а потом еще...

[Twister]

Как в кнопку можно вставить!

Блин...
Ребята! Ну неужели так сложно купить книженку "Для чайников" и почитать что есть функция и с чем ее едят? Тут такое разжевывают очень редко...

[Хакер]

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

Private Sub Command1_Click
  If IsFileExist("C:\Windows\", "Notepad.exe") Then
    MsgBox "Есть такой файл"
  Else
    MsgBox "Нет такого файла"
  End If
End Sub


[zaf]

Как в кнопку можно вставить!

Блин...
Ребята! Ну неужели так сложно купить книженку "Для чайников" и почитать что есть функция и с чем ее едят? Тут такое разжевывают очень редко...

Эту книку еще и прочесть надо!
Обещаю послезавра пойду покупать!
Прогу надо немного доделать plzz

[Хакер]

Раньше тут такое разжёвывали а щас нет. Это очень большой минус. Форум становится не нужный новичкам - он им ничего не даст кроме замечания. Пройдёт 10 лет и все гуру постареют... уйдут... и никого не останется...

[Twister]

Раньше тут такое разжёвывали а щас нет.

Да ну?

[Хакер]

Ну бывает иногда. Но редко... если б ты не написал, невидать бы ей помощи..

Вобщем, если щас задать вопрос, как "Как узнать путь ЕХЕ по его hWnd" сразу пошлют в одно место, топик залочат и замечание выпишут...

[Twister]

Как узнать путь ЕХЕ по его hWnd

По hWnd окна, ты хотел сказать... Вообще не думаю, что за это пошлют. А за "что такое функция" точно...

[Хакер]

А что делать если человек не знает что такое API, Timer и что такое событие вообще?

[Twister]

А что делать если человек не знает что такое API, Timer и что такое событие вообще?

Читать книги. Я начинал без форума - по книгам.

[Хакер]

Я начинал без книг - методом тыка

[VVitafresh]

У каждого свой метод. Кто-то методом втыка, кто-то по книгам.

to zaf, почитай: http://bbs.vbstreets.ru/viewtopic.php?t=17961

[zaf]

Пишет ошибка файлов!
Все вроде правильно сделал!
Посмотрите Plz

[Twister]

242.07 KB

Что там у тебя? Делфийский екзешник?

[VVitafresh]

Да, такой размер и качать не хочется.

[vvs_adm]

Я начинал без книг - методом тыка

Ну... не самый лучший метод. При полном отсутствии книг затрата даже на самую плохую вполне себя оправдает Разве что ты после завершения метода тыка перешел к книгам, но уже подкованный

[tyomitch]

Вобщем, если щас задать вопрос, как "Как узнать путь ЕХЕ по его hWnd" сразу пошлют в одно место, топик залочат и замечание выпишут...

Кстати, в 9 случаях из 10 для этого советуют всяческие обходные пути, типа GetWindowThreadProcessId+CreateToolhelp32Snapshot.
Интересно, откуда это берётся? Нужели тоже из API-Guide?

[zaf]

Вот укоротил немного!
Там установочный файл хотел сделать пишет чето с файлами:(

[VBTerminator]

Добрый день!

У меня есть 3 вопроса

1) как можно скопировать на робочий стол файл (незная реального адреса)

2) как добавить ярлык в Главное Меню?

Если тебе всё это требуется для установки проги, используй Wise Install Master (прога есть такая)
[Viper] :: На дату то не судьба было посмотреть? Получай замечание за некрофилию!

[RazArt]

Как вариант можно сделать так:

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

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

Private Sub Form_Load()
    Dim sBuffer As String
    Dim lSize As Long
    sBuffer = Space$(255)
    lSize = Len(sBuffer)
    GetUserName sBuffer, lSize
    txtPath.Text = "Çäåñü äèñê ñ óñòàíîâëåííûì WinXp" & ":\Documents and Settings\" & Left$(sBuffer, lSize) & "\Desktop\"
End Sub


[Viper] :: Тоже самое. Зачем раздувать некрофилию?