VB vs Delphi

[Константиин]

Помогите перевести с Delphi:

Код: Выделить всё

procedure LightAlloyFullScreen;
var
  Wnd:HWND;
begin
  Wnd:=FindWindow('LightAlloyFront',NIL);
  if (Wnd<>0) then
    SendMessage(Wnd,WM_LACMD,LAC_WINDOW_FULLSCREEN,0);
end;


Заранее благодарен!!!

[GSerg]

Код: Выделить всё

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

sub LightAlloyFullScreen
  dim Wnd as long

  wnd=findwindow("LightAlloyFront",vbnullstring)
  if wnd then sendmessage wnd, wm_lacmd,LAC_WINDOW_FULLSCREEN,0
end sub

[alibek]

Уже хотел сказать "Шо, опять?!"

[ism]

Только значения констант WM_LACMD и LAC_WINDOW_FULLSCREEN в API Viewer'е нет

[alibek]

Так это потому, что к WinAPI они никакого отношения и не имеют.

[Ramzes]

Уже хотел сказать "Шо, опять?!"

Аналогично

[Ariman]

Блин, только что ответил на точно такой же пост, вдруг смотрю - на его копию уже пять ответов.....