Как распознать запуск в Wine?

[DSJ]

98% функционала моей программульки на Delphi замечательно работает на Linux под Wine, остальные 2% не существенны и хотелось бы их просто отключить, если прога запускается в Wine.

Как распознать запуск в Wine?

P.S. Весь инет обрыл вдоль и поперёк, такое ощущение что никому даже в голову такой вопрос не приходил, странно однако... Наверное не там искал.

[art-programs]

может попробовать пойти от противного?
точно не знаю но думаю что если спросить
у вайн версию винды то он не сможет определить её
а скорее выдаст ошибку
используй try для отлова ошибки и функцию

function GetVersionEx(lpOs: pointer): BOOL; stdcall;

соответственно если определить удалось, то винда и тд...

[DSJ]

Пробовал, под Wine определил мажорную версию - 5 (остальные не помню).

[art-programs]

function GetWineAvail: boolean;
var H: cardinal;
begin
Result := False;
H := LoadLibrary('ntdll.dll');
if H > 0 then
begin
  Result := Assigned(GetProcAddress(H, 'wine_get_version'));
  FreeLibrary(H);
end;
end;

//использование
if GetWineAvail() then
ShowMessage('Ура! Мы под Винищем!')
else
ShowMessage('Чистейший Виндовз, сэр!');
end;

попробуй это

[DSJ]

Работает! Спасибо

P.S. А вообще от последнего Wine я просто в шоке (в хорошем смысле). Работают замечательно такие вещи, о которых раньше и мечтать не приходилось!