[kaka4a]

Всем привет.
Имеем такой код :

Код:

Const
 MemFileSize = 1024;
 MemFileName = 'tratata';
Var
 MemHnd : HWND;
begin
  MemHnd := CreateFileMapping(HWND($FFFFFFFF),
                              nil,
                              PAGE_READWRITE,
                              0,
                              MemFileSize,
                              MemFileName);

  if GetLastError<>ERROR_ALREADY_EXISTS then
  begin
//тут продолжаем запуск приложения
end
else begin
//тут блокируем запуск второй копии
end;
end.

При компиляции в 32-бита - всё работает, при 64 - полный игнор данного кода... Куда копать?

[lmikle]

Была подобная фигня. Посмотри возвращаемое значение - там скорее всего ошибка типа неправильные параметры. Т.е. не совпадает размерность каких то флагов. Типа у тебя WORD, а там в 64-bit надо DWORD.