Не запускается прога на другом компе

[Pixelrom33]

Сделал прогу, скомпилил, вытащил ексешник и все ресурсы, перенес на другой комп. Не запускается. Ничего не пишет просто открывает свернутое окно, которое не разворачивается, что делать?

[Stilet]

А что делает прога? Для чего она?

[Pixelrom33]

Банальная змейка. вот код:

unit UnitSnake;

interface

{$R Resourses.res}

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Menus, ComCtrls, XPMan;

type
    TForm1 = class(TForm)
    btn1: TButton;
    tmr1: TTimer;

    procedure tmr1Timer(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Newgame;
    procedure Ini;
    procedure Endgame;
    procedure Loadmap;
    procedure Render;
    procedure Move;
    procedure CreateApple;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  cell: array [0..29, 0..29] of byte;
  Sbody, wall, apple: TBitmap;
  link: array of array of byte;
  dir: byte;
  map: file of byte;

implementation

{$R *.dfm}

procedure TForm1.CreateApple;
var
   x,y: Byte;
begin
   repeat
      x:=Random(28);
      y:=Random(28);
   until cell[x,y]=0;
   cell[x,y]:=3
end;

procedure TForm1.Newgame;
begin
   tmr1.Enabled:=True;
   SetLength(link,3,2);
   link[0,0]:=13;
   link[0,1]:=15;
   link[1,0]:=14;
   link[1,1]:=15;
   link[2,0]:=15;
   link[2,1]:=15;
   dir:=2;
   CreateApple;
end;

procedure TForm1.Ini;
begin
   Form1.DoubleBuffered:=true;
   Randomize();
   Sbody:=TBitmap.Create;
   Sbody.LoadFromResourceName(HInstance,'BODY');
   wall:=TBitmap.Create;
   wall.LoadFromResourceName(HInstance,'WALL');
   apple:=TBitmap.Create;
   apple.LoadFromResourceName(HInstance,'APPLE');
end;


procedure TForm1.Endgame;
var
  i,j: integer;
begin
  tmr1.Enabled:=False;
  Form1.Refresh;
  for i:=0 to 29 do
     for j:=0 to 29 do
        if cell[i, j]<>1 then
           cell[i, j]:=0;
  if MessageBox(Application.Handle,'Ïîïðîáîâàòü åùå ðàç?','Âû ïðîèãðàëè', MB_YESNO)=mrYes then
     newgame
  else
     close;

end;

procedure TForm1.Loadmap;
var
  i,j:Integer;
  t: byte;
  
begin
   AssignFile(map, 'Maps\map.txt');
   Reset(map);
   i:=0;
   j:=0;
   while not EOF(map) do
   begin
      read(map, t);
      t:=t-48;
      if (t>=0) and (t<2) then
      begin
         cell[i,j]:=t;
         if i=29 then
         begin
            i:=0;
            j:=j+1;
         end
         else
            i:=i+1;
      end;
   end;
end;

procedure TForm1.Render;
var
   i,j: Integer;

begin
   for i:=0 to Length(link)-1 do
      cell[link[i,0],link[i,1]]:=2;
   Form1.Refresh;
   for i:=0 to 29 do
      for j:=0 to 29 do
         case cell[i,j] of
         1: Form1.Canvas.Draw(i*16, j*16, wall);
         2: Form1.Canvas.Draw(i*16, j*16, Sbody);
         3: Form1.Canvas.Draw(i*16, j*16, apple);
         end;
end;

procedure TForm1.Move;
var
  x,y,i:Integer;

begin
   case dir of
      0: begin
            x:=link[0,0]+1;
            y:=link[0,1];
         end;
      1: begin
            x:=link[0,0];
            y:=link[0,1]-1;
         end;
      2: begin
            x:=link[0,0]-1;
            y:=link[0,1];
         end;
      3: begin
            x:=link[0,0];
            y:=link[0,1]+1;
         end;
   end;
   case cell[x,y] of
      0: begin
            cell[link[(Length(link)-1),0],link[(Length(link)-1),1]]:=0;
            for i:=Length(link)-1 downto 1 do
            begin
               link[i,0]:=link[i-1,0];
               link[i,1]:=link[i-1,1];
            end;
            link[0,0]:=x;
            link[0,1]:=y;
         end;
      1,2: begin
              Endgame;
              Exit;
           end;
      3: begin
            SetLength(link, Length(link)+1);
            SetLength(link[Length(link)-1], 2);
            link[Length(link)-1,0]:=link[Length(link)-2,0];
            link[Length(link)-1,1]:=link[Length(link)-2,1];
            for i:=Length(link)-2 downto 1 do
            begin
               link[i,0]:=link[i-1,0];
               link[i,1]:=link[i-1,1];
            end;
            link[0,0]:=x;
            link[0,1]:=y;
            CreateApple;
         end;
   end;

end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   case key of
      vk_left:  if dir<>0 then dir:=2;
      vk_right: if dir<>2 then dir:=0;
      vk_up:    if dir<>3 then dir:=1;
      vk_down:  if dir<>1 then dir:=3;
   end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
   btn1.Destroy;
   Loadmap;
   Newgame;
   Render;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Ini;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
   Move;
   Render;
end;

end.

[Pixelrom33]

кстати, окно не не разворачивается, а просто невидимо. Свернуть развернуть его можно, и его даже видно в окне предпросмотра (на семерке)

но само окно не видно.

[Stilet]

Может из-за XPMan? Попробуй его убрать

[Pixelrom33]

Stilet, нет, не из-за него. Убирал не помогает

[Stilet]

У меня с собой севена нет, но если не сложно прикрепи проект и экзешник со всеми сопутствующими файлами в архив и выложи сюда.

[Pixelrom33]

Проэкта того, к сожалению уже нету (я его дальше начал делать и он уже не тот). а вот ексешник остался от старого.

[Аватар]

У меня на Win7(64) без проблем и змейка бегает

[Pixelrom33]

проблема в том что запускается она не у всех) не знаю почему. у некоторых бегает у некоторых нет. мб дело в винде? или дровах каких?