Orion9
|
 Posted: Wed Apr 15, 2026 00:12 Post subject: |
 |
|
| yahuu wrote: | | Функция FileDelete в 64-битной версии TC приводит к краху и завершению работы TC. |
Да, было замечено.
Можно использовать ShellExec
| Code: | ShellExec /SW_HIDE /WAIT:2000 %COMSPEC% "/c del /f /q ""%COMMANDER_PATH%\temp.txt""" |
Или функцию сделать
| Code: | Func FileDeleteShellExec(Target)
If Not FileExist(Target) Then Return 0
ShellExec("~/SW_HIDE /WAIT:2000", COMSPEC, '/c del /q "' & Target & '"')
If FileExist(Target) Then Return -1
Return 1
EndFunc |
| Code: | Local sTarget = COMMANDER_PATH & '\temp.txt'
If FileDeleteShellExec(sTarget) = -1 Then MsgBox("Error deleting " & sTarget)
|
| ZiabrevLV wrote: | | Не работает - ошибка If StrPossIconLib, "" - параметр не определён. |
Похоже, что скобка потерялась
| Code: | If StrPos(sIconLib, "") Then |
Хотя пустую строку можно сравнивнить If sIconLib = "", но если следовать логике функции , должно быть, наверное, так
| Code: | If StrPos(sIconLib, "Fileicons.dll") Then |
Значение ключа в ini будет каждый раз меняться. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
