Kodeerstatning af {$R *.DFM}

Hmmm, er du virkelig sikker på at det er det du vil? Hele idéen med Delphi er jo, at du bruger det som RAD. Men hvis du virkelig mener det, så skal jeg da gerne lave et lille program, der kan anskueliggøre for dig, hvor forkert din tankegang er.

program NonVCL;

uses
  Messages, Windows;

const
  AppName: array[0..5] of Char = \'blomme\';

function WndProc(HWnd: HWND; Msg: UINT;
  wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  case Msg of
    WM_DESTROY:
      begin
        PostQuitMessage(0);
        Result := 0;
      end
    else
      Result := DefWindowProc(HWnd,Msg,WParam,LParam);
  end;
end;

var
  WClass: TWndCLass;
  Handle: HWND;
  Msg: TMsg;
begin
  with WClass do
  begin
    style := CS_VREDRAW or CS_HREDRAW;
    lpfnWndProc := @WndProc;
    cbClsExtra := 0;
    cbWndExtra := 0;
    WClass.hInstance := HInstance;
    hIcon := LoadIcon(HInstance,IDI_APPLICATION);
    hCursor := LoadCursor(HInstance,IDC_ARROW);
    hbrBackground := GetStockObject(WHITE_BRUSH);
    lpszMenuName := nil;
    lpszClassName:= @AppName;
  end;
  RegisterClass(WClass);
  Handle := CreateWindow(@AppName,\'Hej blomme!\',
    WS_OVERLAPPEDWINDOW,
    LongInt(CW_USEDEFAULT), LongInt(CW_USEDEFAULT), LongInt(CW_USEDEFAULT), LongInt(CW_USEDEFAULT),
    0,0,HInstance,nil);
  ShowWindow(Handle,SW_NORMAL);
  UpdateWindow(Handle);
  while GetMessage(Msg,0,0,0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end.


Hvis du synes, at det er sjovt, så bare gå i gang.

Mit råd er: Lad {$R *.DFM} stå.

>Hvis du synes, at det er sjovt, så bare gå i gang.

Hehe, det er lige præcis det jeg synes det er :)
Det skal dog lige gøres klart, at det kun var rent gætværk om det der med at \'fjerne\' {$R *.DFM} - nu ved jeg så at man rent faktisk KAN.
Tak for svaret :D

- Thomas

pstric eller thomas >>

kunne I ikke tænke jer at deltage i vores Notepad-konkurrence??
den går nemlig ud på at lave et meget lille (så lille som muligt) program, som fungerer og ser ud som, notepad.
størrelsen måles i exe-filens bytes.
og den størrelse bliver jo netop reduceret kraftigt ved at udelade unitet forms osv.

se www.eksperten.dk/spm/37244
eller www.klon.cnt.dk