}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: 8e814276 Описание: Код загружен: 25 сентября 2011, 18:30 (winner13)

  1. begin
  2. instance :=GetModuleHandle(nil);
  3.  
  4. WindowClass.style:=CS_HRedraw or CS_VRedraw;
  5. WindowClass.Lpfnwndproc:=@windowproc;
  6. WindowClass.Hinstance:=Instance;
  7. WindowClass.HbrBackground:= color_btnface;
  8. WindowClass.LpszClassName:='DX';
  9. WindowClass.Hcursor:=LoadCursor(0,IDC_ARROW);
  10.  
  11. RegisterClass(WindowClass);
  12.  
  13. Handle:=CreateWindowEx (0,'DX','',WS_POPUP, 5,5, 300, 200,0,0,instance, nil);
  14.  
  15. Тоесть предлагаешь изменить
  16. begin
  17. instance :=GetModuleHandle(nil);
  18.  
  19. WindowClass.style:=CS_HRedraw or CS_VRedraw;
  20. WindowClass.Lpfnwndproc:=@windowproc;
  21. WindowClass.Hinstance:=Instance;
  22. WindowClass.HbrBackground:= color_btnface;
  23. WindowClass.LpszClassName:='DX';
  24. WindowClass.Hcursor:=LoadCursor(0,IDC_ARROW);
  25. RegisterClass(WindowClass);
  26. if RegisterClass(WindowClass)=0 then Halt(255);
  27. Handle:=CreateWindow(AppName, 'Flash disk detector', ws_OverlappedWindow,
  28. cw_UseDefault, cw_UseDefault, cw_UseDefault, cw_UseDefault,
  29. 0, 0, HInstance, nil);
  30. ShowWindow(Handle, SW_MAXIMIZE);
  31. UpdateWindow

Ссылка на данный код:

На главную страницу сервиса обмена кодом »