[Maratina]

привет
есть несколько .exe файлов к игре ( игра старая) почему несколько ? каждый под "свое" разрешение экрана, допустим 1280х720, 1280х1024, 1366х768, и тд
возможно ли сделать "автоматический" выбор этого файла в зависимости от разрешения экрана ??
допустим проверить так

Скрытый текст

Код:

function GetDC(HWND: DWord): DWord; external 'GetDC@user32.dll stdcall';
function GetDeviceCaps(DC: DWord; Index: Integer): Integer; external 'GetDeviceCaps@gdi32.dll stdcall';
function ReleaseDC(HWND: DWord;DC: DWord): Integer; external 'ReleaseDC@user32.dll stdcall';

function GetMonitorInfo(MetricType:Byte;Descriptor:THandle)  : Word;
var
  dc: DWord;
begin
  Result:= 0;
  case MetricType of
    1:
    begin
      dc:= GetDC(Descriptor);
      Result:= GetDeviceCaps(dc,8);
    end;
    2:
    begin
      dc:= GetDC(Descriptor);
      Result:= GetDeviceCaps(dc,10);
    end;
   end;
  ReleaseDC(Descriptor,dc);
end;

или не получится ? и просто сделать выбор компонентов ?:

[sergey3695]

Maratina, пример

Скрытый текст

Код:

function Sides: String;
begin
  Result:= 'bPillarBox4to3';
if (screen.Width=1024) and (screen.Height=576) then
  Result:= 'bPillarBox16to9';
if (screen.Width=1280) and (screen.Height=720) then
  Result:= 'bPillarBox16to9';
if (screen.Width=1024) and (screen.Height=576) then
  Result:= 'bPillarBox16to9';
if (screen.Width=1366) and (screen.Height=768) then
  Result:= 'bPillarBox16to9';
if (screen.Width=1920) and (screen.Height=1080) then
  Result:= 'bPillarBox16to9';
if (screen.Width=2048) and (screen.Height=1152) then
  Result:= 'bPillarBox16to9';
if (screen.Width=2560) and (screen.Height=1440) then
  Result:= 'bPillarBox16to9';
if (screen.Width=2048) and (screen.Height=1152) then
  Result:= 'bPillarBox16to9';
if (screen.Width=1280) and (screen.Height=800) then
  Result:= 'bPillarBox16to10';
if (screen.Width=1440) and (screen.Height=900) then
  Result:= 'bPillarBox16to10';
if (screen.Width=1600) and (screen.Height=1024) then
  Result:= 'bPillarBox16to10';
if (screen.Width=1680) and (screen.Height=1050) then
  Result:= 'bPillarBox16to10';
if (screen.Width=1920) and (screen.Height=1200) then
  Result:= 'bPillarBox16to10';
if (screen.Width=2560) and (screen.Height=1600) then
  Result:= 'bPillarBox16to10';
if (screen.Width=1280) and (screen.Height=1024) then
  Result:= 'bPillarBox5to4';
if (screen.Width=2560) and (screen.Height=2048) then
  Result:= 'bPillarBox5to4';
end;

[LordSP]

Nothing..

[El Sanchez]

Вижу что преобразование кодировки не идет, но не могу разобраться почему »

LordSP, ну так в dll DsShow ожидает Unicode-строку, а передается ANSI-строка.
ANSI-cтрока Hello World! (последовательность байт):

48(H) 65(e) 6C(l) 6C(l) 6F(o) 20( ) 57(W) 6F(o) 72(r) 6C(l) 64(d) 21(!)

Unicode-строка Hello World! (последовательность байт, 2 байта на символ):

48 00 (H) 65 00(e) 6C 00(l) 6C 00(l) 6F 00(0) 20 00( ) 57 00(W) 6F 00(o) 72 00(r) 6C 00(l) 64 00(d) 21 00(!)

ANSI-cтрока Hello World!, которую пытаются трактовать как Unicode-строку (последовательность байт):

48 65(效) 6C 6C(汬) 6F 20(漠 в UTF-16BE, но у нас UTF-16LE и такого символа нет, поэтому не отображается ) 57 6F(潗) 72 6C(汲) 64 21(Ⅴ)

P.S. Да, и так строки в dll не передаются. Так вообще нельзя делать, ну совсем нельзя. Курите для начала комментарий в dpr-файле dll, а потом, к примеру, http://www.gunsmoker.ru/2009/01/blog-post.html

[LordSP]

El Sanchez, Модуль ShareMem я подключал, ничего не вышло, я в Delphi не так силен, Вы не могли бы пример показать? Насчет кодировки я понимал сразу, но так и не понял как правильно передавать строки.

[dracosha]

Всем привет. Ребят подскажите пожалуйста... Собрал только что китайской версией установщик. В тотал командер видно что файл создан 22.01.2016 в 16:21, а если навести курсор на сам экзешник, то пишет следующее: Дата создания: 08.01.2016 19:04

Скриншот

Подскажите пожалуйста что надо сделать чтобы писались правильные дата и время?

[nik1967]

dracosha, а если правой кнопкой на сетап => свойства => подробно, дата изменения?

[dracosha]

nik1967, там правильная дата, сегодняшняя, такая же как и в тотале, но на всплывающей подсказке какая-то "левая" дата
Думал может в тотале кривая подсказка, но нет, в проводнике такая же история.

Скриншоты

[nik1967]

dracosha, ну тогда, файл был создан именно 08.01.2016, а 22.01.2016 он был обновлён. О чём и докладывают свойства файла.

[dracosha]

nik1967, файл я удалил и скомпилил по новой - без изменений