Работает на Висте а на ХР нет

[AidarBik]

Решил переписать сво программу на WinAPI, почти создал главное окно, решил запустить на ХР - вылазит ошибка. На Висте все ОК. В чем может быть проблема?

program POP3MailCheck;

{$R *.res}
{$R WindowsXP.res}

uses
  Windows,
  Messages,
  ShellAPI,
  CommCtrl;

const
  ProgrammName: PChar = 'POP3 Mail Check 5.0';

type
  TUser = record
    Name, Server, User, Password, Port: String;
    MessageCount: Integer;
  end;

var
  UsersWindow, WindowCaptionStatic, UsersListView, AddUser, ChangeUser, DeleteUser, OK: HWND;
  Font: HFONT;
  UsersWindowClass: TWndClassEx;
  TheMessage: TMsg;
  TmpRect: TRect;
  UserListViewColumn1, UserListViewColumn2, UserListViewColumn3: tagLVCOLUMNA;
  OldOKWindowProc, OldUsersListViewWindowProc: Pointer;
  Users: Array of TUser;
  Tray: TNotifyIconData;

function OKWindowProc(Handle: THandle;
  Msg, wParam, lParam: LongInt): LongInt; stdcall;
begin
  if Msg = WM_LBUTTONUP then
  SendMessage(UsersWindow, WM_DESTROY, 0, 0);
  Result:=CallWindowProc(OldOKWindowProc, Handle, Msg, wParam, lParam);
end;

function UsersListViewWindowProc(Handle: THandle;
  Msg, wParam, lParam: LongInt): LongInt; stdcall;
begin
  {

  }
  Result:=CallWindowProc(OldUsersListViewWindowProc, Handle, Msg, wParam, lParam);
end;

function UsersWindowProc(Wnd: HWND; Msg: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  WndRect: TRect;
begin
  Result:=0;
  GetWindowRect(Wnd, WndRect);
  case Msg of
  WM_CREATE:
  begin
    with Tray do
    begin
      cbSize:=SizeOf(TNotifyIconData);
      Wnd:=Wnd;
      uID:=13;
      uFlags:=NIF_MESSAGE + NIF_ICON + NIF_TIP;
      uCallBackMessage:=WM_USER + 13;
    end;
    Tray.Wnd:=Wnd;
    Shell_NotifyIcon(NIM_ADD, @Tray);
  end;
  WM_CLOSE: ShowWindow(Wnd, SW_HIDE);
  WM_DESTROY:
  begin
    Shell_NotifyIcon(NIM_DELETE, @Tray);
    PostQuitMessage(0);
    Exit;
  end;
  WM_NCHITTEST: Result:=HTCAPTION;
  else
  Result:=DefWindowProc(Wnd, Msg, wParam, lParam);
  end;
end;

begin
  GetWindowRect(GetDesktopWindow, TmpRect);
  with UsersWindowClass do
  begin
    cbSize:=SizeOf(UsersWindowClass);
    lpfnWndProc:=@UsersWindowProc; 
    cbClsExtra:=0;
    cbWndExtra:=0;  
    hCursor:=LoadCursor(0, IDC_ARROW);
    hbrBackground:=COLOR_BTNFACE + 1;
    lpszMenuName:=nil;
    lpszClassName:='UsersWindow';
  end;
  UsersWindowClass.hInstance:=HInstance;
  RegisterClassEx(UsersWindowClass);
  Font:=CreateFont(-12, 0, 0, 0, 0, 0, 0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY, DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif');
  UsersWindow:=CreateWindowEx(WS_EX_TOOLWINDOW, 'UsersWindow', 'POP3 Mail Check', WS_VISIBLE or WS_POPUP, (TmpRect.Right - 315) div 2, (TmpRect.Bottom - 330) div 2, 315, 330, 0, 0, HInstance, nil);
  SetWindowRgn(UsersWindow, CreateRoundRectRgn(0, 0, 315, 330, 15, 15), True);
  WindowCaptionStatic:=CreateWindowEx(0, 'Static', ProgrammName, WS_CHILD or SS_LEFT or WS_VISIBLE, 8, 8, 100, 15, UsersWindow, 0, HInstance, nil);
  SendMessage(WindowCaptionStatic, WM_SETFONT, WPARAM(Font), 0);
  UsersListView:=CreateWindowEx(0, 'SysListView32', 'UsersList', WS_CHILD or LVS_REPORT or WS_BORDER or SS_LEFT or WS_VISIBLE, 8, 32, 297, 225, UsersWindow, 0, HInstance, nil);
  AddUser:=CreateWindowEx(0, 'Button', 'Äîáàâèòü', WS_CHILD or WS_VISIBLE, 8, 264, 89, 25, UsersWindow, 0, HInstance, nil);
  SendMessage(AddUser, WM_SETFONT, WPARAM(Font), 0);
  ChangeUser:=CreateWindowEx(0, 'Button', 'Èçìåíèòü', WS_CHILD or WS_DISABLED or WS_VISIBLE, 104, 264, 89, 25, UsersWindow, 0, HInstance, nil);
  SendMessage(ChangeUser, WM_SETFONT, WPARAM(Font), 0); 
  DeleteUser:=CreateWindowEx(0, 'Button', 'Óäàëèòü', WS_CHILD or WS_VISIBLE or WS_DISABLED, 208, 264, 89, 25, UsersWindow, 0, HInstance, nil);
  SendMessage(DeleteUser, WM_SETFONT, WPARAM(Font), 0);
  OK:=CreateWindowEx(0, 'Button', 'ÎÊ', WS_CHILD or WS_VISIBLE, 208, 296, 89, 25, UsersWindow, 0, HInstance, nil);
  SendMessage(OK, WM_SETFONT, WPARAM(Font), 0);
  OldOKWindowProc:=Pointer(SetWindowLong(OK, GWL_WNDPROC, LongInt(@OKWindowProc)));  
  OldUsersListViewWindowProc:=Pointer(SetWindowLong(UsersListView, GWL_WNDPROC, LongInt(@UsersListViewWindowProc)));
  with UserListViewColumn1 do
  begin
    pszText:='Ó÷åòíàÿ çàïèñü';
    cx:=130;
    mask:=6;
  end;
  with UserListViewColumn2 do
  begin
    pszText:='Ñåðâåð';
    cx:=70;
    mask:=6;
  end;
  with UserListViewColumn3 do
  begin
    pszText:='Ïîëüçîâàòåëü';
    cx:=90;
    mask:=6;
  end;
  ListView_InsertColumn(UsersListView, 0, UserListViewColumn1);
  ListView_InsertColumn(UsersListView, 1, UserListViewColumn2);
  ListView_InsertColumn(UsersListView, 2, UserListViewColumn3);
  while GetMessage(TheMessage, 0, 0, 0) do
  begin
    TranslateMessage(TheMessage);
    DispatchMessage(TheMessage);
  end;
end.

[B_N]

AidarBik, не забывайте указывать, какая именно ошибка. Для "каши" в строках 95-110 существуют диалоги.

[AidarBik]

Runtime error 2 at  00404a84

[B_N]

Сообщение от AidarBik

Runtime error 2 at  00404a84

Такие ошибки нужно искать отладчиком. Уберите ссылки на ресурсы из проекта, по крайней мере

{$R *.res}

, зачем они здесь? Без ресурсов всё компилируется и работает. Окна всё же советую создавать диалогом.

[AidarBik]

Без ресурсов тоже не работает

[Stilet]

Без ресурсов тоже не работает

Только что скомпилил твою без ресурсов на D6 WinXP SP1 - все запустилось.

[AidarBik]

А вот этот файл запускается?

[JTG]

А вот этот файл запускается?

Вылетает на

 UsersWindow:=CreateWindowEx(WS_EX_TOOLWINDOW, 'UsersWindow', 'POP3 Mail Check', WS_VISIBLE or WS_POPUP, (TmpRect.Right - 315) div 2, (TmpRect.Bottom - 330) div 2, 315, 330, 0, 0, HInstance, nil);

--
Гыг, а сама ошибка при открытии какого-то файла

[AidarBik]

Ой, там с файлом я потом добавил.

Сообщение от JTG

Вылетает на

 UsersWindow:=CreateWindowEx(WS_EX_TOOLWINDOW, 'UsersWindow', 'POP3 Mail Check', WS_VISIBLE or WS_POPUP, (TmpRect.Right - 315) div 2, (TmpRect.Bottom - 330) div 2, 315, 330, 0, 0, HInstance, nil);

А что можно сделать с этим?

[Christoph]

Сообщение от AidarBik

Ой, там с файлом я потом добавил.

А что можно сделать с этим?

Попробуй методом тыка менять параметры, а вообще чтоб не было таких конфликтов пишут на дота Net