H Как преподнести проект на Python рядовому пользователю без компиляторов и костылей, или подстраиваем велосипед под седока в черновиках Из песочницы

program python;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Zip, ShellAPI;

var a, path : string;
    zip : TZipFile;
    i, s, p : integer;
begin
  try
  // если уже проводилась распаковка...
    if fileexists('.sourse\\main.py') or fileexists('.sourse\\main.pyc') then begin
      writeln('Starting...');
      if fileexists('.sourse\\main.py') then ShellExecute(0, nil, PChar('"'+ExtractFilePath(ParamStr(0))+'\\.sourse\\python\\py.exe"'), PChar(string('"'+ExtractFilePath(ParamStr(0))+'\\.sourse\\main.py"')), '', 1)

      else if fileexists('.sourse\\main.pyc') then ShellExecute(0, nil, PChar('"'+ExtractFilePath(ParamStr(0))+'\\.sourse\\python\\py.exe"'), PChar(string('"'+ExtractFilePath(ParamStr(0))+'\\.sourse\\main.pyc"')), '', 1)
      else begin
        write('File not found! Press any key...');
        read(i);
      end;

      exit();
    end;

    //распаковываем zip-файл
    zip := TZipFile.Create;
    zip.UTF8Support := True;
    s := 0; // индикатор наличия main файла
    p := 0; //индикатор наличия python
    zip.Open('sourse.zip', zmRead);
    for I := 0 to zip.FileCount - 1 do
    begin
      writeln(zip.FileNames[i], ' extracting...');
      if zip.FileNames[i] = 'main.py' then s := 1;
      if zip.FileNames[i] = 'main.pyc' then s := 2;
      if zip.FileNames[i] = 'python.zip' then p := 1;
      zip.Extract(zip.FileNames[i], '.sourse');
    end;
    zip.Close;
    DeleteFile('sourse.zip');
    //начинаем работу с распаковкой пайтона
    write('Extracting Python, it may take a few seconds...');
    zip.Open('.sourse\\python.zip', zmRead);
    zip.ExtractAll('.sourse\\python');
    write('Done!'+#10#13 +'Starting...');
    zip.Destroy();
    DeleteFile('.sourse\\python.zip');
    //проверки
    if s = 0 then      //если в ходе распаковки основной файл не был обнаружен
        begin
           write('No .py or .pyc file!', #10#13, 'Press any key...');
           read(a);
           exit();
        end;
    if p = 0 then      //если в ходе распаковки python не был обнаружен
        begin
           write('No Python!', #10#13, 'Press any key...');
           read(a);
           exit();
        end;
    //сам запуск
    if s = 1 then ShellExecute(0, nil, PChar('"'+ExtractFilePath(ParamStr(0))+'\\.sourse\\python\\py.exe"'), PChar(string('"'+ExtractFilePath(ParamStr(0))+'\\.sourse\\main.py"')), '', 1)    //PChar(string(ExtractFilePath(ParamStr(0))+'\\.sourse\\main.py'))
    else ShellExecute(0, nil, PChar('"'+ExtractFilePath(ParamStr(0))+'\\.sourse\\python\\py.exe"'), PChar(string('"'+ExtractFilePath(ParamStr(0))+'\\.sourse\\main.pyc"')), '', 1);    //PChar(string(ExtractFilePath(ParamStr(0))+'\\.sourse\\main.py'))

    exit();
  except
  //на случай, если что случится
    on E: Exception do begin
      Writeln(E.ClassName, ': ', E.Message);
      write('Broken! Press any button...');
      read(a);
    end;
  end;
end.

print('Привет! Я - переносной скрипт python и я занимаю в запакованном виде менее 20 мб!')
print('Сейчас я попытаюсь импортировать модуль random...')

try:
    import random
    print('Хех, мне это удалось!')
    print('Держи псевдослучайное число :', random.randrange(0,100))
except:
    print('%( Не получилось')

ragnarok = input('Нажмите любую кнопку...')