; Не запускать файл на исполнение! Будет удалено всё, что есть в этой папке вместе с папкой!
Select MessageRequester("Внимание! ", "Удалить программу и её каталог?", #MB_YESNO|#MB_ICONWARNING)
  Case #IDYES
    PathPart$ = GetPathPart(ProgramFilename())
    If CreateFile(0, "del.bat")
       WriteStringN(0,"@echo off") 
       WriteStringN(0,"CD\.")
       WriteStringN(0,"timeout /t 2 /nobreak >nul 2>nul")
       WriteStringN(0,"rd /s /q " + Chr(34) + PathPart$  + Chr(34) )
      CloseFile(0)
    RunProgram("del.bat")
    End
    EndIf
  Case #IDNO
    MessageRequester("Внимание! ", "Отменено пользователем")
EndSelect

EXE_Location$ = Space(#MAX_PATH)
GetModuleFileName_(#Null, EXE_Location$, #MAX_PATH)
Debug EXE_Location$

EnableExplicit

Procedure StrToArrLetter(Array Arr.s{1}(1), String$)
	Protected LenStr, i
	LenStr = Len(String$)
	If LenStr
    ReDim Arr(LenStr - 1)
    PokeS(Arr(), String$, -1, #PB_String_NoZero)
	EndIf
	ProcedureReturn
EndProcedure

Procedure.s Encode1251To866(sString$)
	Protected sResult$ = "", i, code
	Protected cp1251$, cp866$, Pos
	Protected Dim Arr866.s{1}(0)
	Protected Dim ArrSource.s{1}(0)
	
	cp1251$ = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
	cp866$ = " ЎўЈ¤Ґс¦§Ё©Є«¬­®ЇабвгдежзийклмнопЂЃ‚ѓ„…р†‡€‰Љ‹ЊЌЋЏђ‘’“”•–—�™љ›њќћџ"
	StrToArrLetter(Arr866(), cp866$)
	StrToArrLetter(ArrSource(), sString$)
	
	For i = 0 To ArraySize(ArrSource())
    code = Asc(ArrSource(i))
    If code >= 1025 And code <= 1105
    	Pos = FindString(cp1251$, ArrSource(i))
    	If Pos
        ArrSource(i) = Arr866(Pos - 1) 
    	EndIf
    EndIf
	Next
	
	ProcedureReturn PeekS(ArrSource())
EndProcedure

Procedure.s Encode866To1251(sString$)
	Protected sResult$ = "", i, code
	Protected cp1251$, cp866$, Pos
	Protected Dim Arr866.s{1}(0)
	Protected Dim ArrSource.s{1}(0)
	
	cp866$ = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
	cp1251$ = " ЎўЈ¤Ґс¦§Ё©Є«¬­®ЇабвгдежзийклмнопЂЃ‚ѓ„…р†‡€‰Љ‹ЊЌЋЏђ‘’“”•–—�™љ›њќћџ"
	StrToArrLetter(Arr866(), cp866$)
	StrToArrLetter(ArrSource(), sString$)
	
	For i = 0 To ArraySize(ArrSource())
    code = Asc(ArrSource(i))
    If code >= 152 And code <= 8482
    	Pos = FindString(cp1251$, ArrSource(i))
    	If Pos
        ArrSource(i) = Arr866(Pos - 1) 
    	EndIf
    EndIf
	Next
	
	ProcedureReturn PeekS(ArrSource())
EndProcedure

Define Str1.s, Str2.s

Str1 = Encode1251To866("Привет")
Str2 = Encode1251To866("абв-юя--АБВ-ЮЯ")
Debug Str1
Debug Str2
Str1 = Encode866To1251(Str1)
Str2 = Encode866To1251(Str2)
Debug Str1
Debug Str2

Procedure.s _Encoding_1251To866(sString$)
	Protected sResult$ = "", iCode, i
	Protected Dim Arr866.s{1}(0)
	
	StrToArrLetter(Arr866(), sString$)

	For i = 0 To ArraySize(Arr866())
    iCode = Asc(Arr866(i))

    Select iCode
    	Case 192 To 239
        Arr866(i) = Chr(iCode - 64)
    	Case 240 To 255
        Arr866(i) = Chr(iCode - 16)
    	Case 168
        Arr866(i) = Chr(240)
    	Case 184
        Arr866(i) = Chr(241)
    	Case 185
        Arr866(i) = Chr(252)
    EndSelect

    sResult$ + Arr866(i)
	Next

	ProcedureReturn sResult$
EndProcedure

Procedure.s Encode1251To866(sString$)
	Protected sResult$ = "", i, code
	Protected cp1251$, cp866$
	Protected Dim Arr866.s{1}(0)
	Protected Dim ArrSource.s{1}(0)
	
	cp1251$ = "АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя"
	cp866$ = "ЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”•–—�™љ›њќћџ ЎўЈ¤Ґ¦§Ё©Є«¬­®Їабвгдежзийклмноп"
	StrToArrLetter(Arr866(), cp866$)
	StrToArrLetter(ArrSource(), sString$)
	
	For i = 0 To ArraySize(ArrSource())
    code = Asc(ArrSource(i))
    Select code
    	Case 1040 To 1103
        ArrSource(i) = Arr866(code - 1040) 
    	Case 1025
        ArrSource(i) = "р"
    	Case 1105
        ArrSource(i) = "с"
    EndSelect
	Next
	
	ProcedureReturn PeekS(ArrSource())
EndProcedure

Import "user32.lib"
	OemToCharBuffA(*Buff,*Buff1,SizeBuff)
	CharToOemBuffA(*Buff,*Buff1,SizeBuff)
EndImport

Procedure.s ToOem(String$)
	Protected Ret$="", *Buff, SizeBuff=Len(String$)
	If SizeBuff>0
    *Buff=AllocateMemory(SizeBuff+1)
    PokeS(*Buff, String$, SizeBuff, #PB_Ascii)
    CharToOemBuffA(*Buff, *Buff, SizeBuff)
    Ret$=PeekS(*Buff, SizeBuff, #PB_Ascii)
    FreeMemory(*Buff)
	EndIf
	ProcedureReturn Ret$
EndProcedure