Нахождение оптимальной стратегии игры

unit funct_main;
 
interface
 
uses
  windows,
  sysUtils,
  ShellAPI;
  
var
  MessageHwnd:Hwnd;
 
Procedure AboutProgram;export;StdCall;
Function ASCII(StringsChars:string):Byte;export;stdcall; {Функция получения ASCII кода символа}
Function CreateNewFile(NewPathFile:String):Boolean;export;stdcall;
Function StartApplication(const PathFileName: String): boolean;export;StdCAll;
 
implementation
 
Function ASCII(StringsChars:string):Byte;export;stdcall; {Функция получения ASCII кода символа}
var
  RegPChar:PChar;
  RegChar:Char;
begin
  RegPChar:=PChar(StringsChars);
  RegChar:=RegPChar[0];
    asm
      mov al, RegChar
      mov Result, al
    end;
end;
 
Procedure AboutProgram;export;StdCall;
var
  InitMessage:String;
  Poin:Pointer;
begin
  Poin:=@InitMessage;
  if Poin = Poin then
  InitMessage:='->Optimization v1.0 - программа нахождения оптимальных стратегий матричной игры.' + #13#10;
  {CALL} MessageBoxA(MessageHwnd, PChar(InitMessage),'О программе...', 0+64);
end;
 
Function CreateNewFile(NewPathFile:String):Boolean;export;stdcall;
var
NewFile:File;
begin
    if FileExists(NewPathFile)=True then
        if DeleteFile(PAnsiChar(NewPathFile)) = False then
          begin
            MessageBoxA(MessageHWND,'Ошибка удаления файла!','Error', 0+16);
            Result:=False;
            Exit;
          end;
        AssignFile(NewFile,NewPathFile);
        ReWrite(NewFile);
        CloseFile(NewFile);
        Result:=True;
 end;
 
 //В  FileName передаётся  полный путь к файлу для запуска
Function StartApplication(const PathFileName: String): boolean;export;StdCAll;
 {
 StartApplication(ExpandFileName('файл или не полный путь к файлу'));
 Функция получения полного пути к файлу
 }
var
  szFile: array[0..MAX_PATH] of Char;
  szCmd : String;
begin
 
//Передаём данные из константы FileName типа String в массив szFile типа Char
    StrPCopy(szFile, PathFileName);
  begin
//Запускаем интерпретатор командной строки и получаем ценность переменной
//окружения ComSpec
      szCmd:= '/c call ' + '"'+szFile+'"' + ' >> NUL';
     if (GetEnvironmentVariable('ComSpec',szFile, MAX_PATH) <> 0) and
        (ShellExecute(0,Nil,szFile,PChar(szCmd),Nil,SW_HIDE) > 32) Then
          begin
             Result:= True;
             Exit;
          end;
  end;
     Result:= False;
end;
 
end.