Среды програмирования максимально похожие на Delphi??

[artiom4356]

Исключения толькаC++,C#)

[vovk]

Lazarus.....

[doktor255]

Зачем создавать такие темы? Заняться что-ли не чем?

[artiom4356]

Я вот не понимаю почему вы сразу говорите "Зачем создавать такие темы? Заняться что-ли не чем? "??
Обясняю: Я начел прогромировать в Delphi 7. Но когда начал изучать WinApi функции(То есть совсем недавно) то столкнулся с тем что в Delphi 7 не очень подходит для Windows 7 на которой я нахожусь в данный момент и не может полноценно скопилировать программы. И поэтому создал эту тему.

[ZuBy]

Delphi XE+ вам в этом поможет, даже сможете под плоскую 8 писать с плиточками живыми

[doktor255]

artiom4356 Открою тебе страшную тайну. D7 СТАРАЯ!

[artiom4356]

Сообщение от doktor255

artiom4356 Открою тебе страшную тайну. D7 СТАРАЯ!

Да я в курсе
Я уже говорил что винда 7 а делфи старая. Вот и ищу что то схоже с Delphi 7 но поновее

[kta87]

Сообщение от vovk

Lazarus.....

тебе уже написали епт!

[Stilet]

Delphi 7 не очень подходит для Windows 7 на которой я нахожусь в данный момент и не может полноценно скопилировать программы.

А вот с этого поподробнее. Что там у тебя не скомпилилось в то время как у меня на D6 доси все идет изумительно?

[artiom4356]

Сообщение от Stilet

А вот с этого поподробнее. Что там у тебя не скомпилилось в то время как у меня на D6 доси все идет изумительно?

Ну если хотите ))
Писал прогу что бы управлять панелькой и кнопкой пуск
И вот что получилось:

 private
    { Private declarations }
    StartBtnWnd, StartBtnBmp: hWnd;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 StartBtnWnd:=FindWindow('Shell_TrayWnd', nil);
 StartBtnBmp:=FindWindowEx(StartBtnWnd, 0,'Button', nil);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SendMessage(StartBtnBmp, BM_SetImage, 0, Image1.Picture.Bitmap.Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 EnableWindow(StartBtnWnd, false);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 EnableWindow(StartBtnWnd, true);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 ShowWindow(StartBtnBmp, SW_HIDE);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 ShowWindow(StartBtnWnd, SW_HIDE);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 ShowWindow(StartBtnBmp, SW_SHOW);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
 ShowWindow(StartBtnWnd, SW_SHOW);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
 SetWindowText(StartBtnBmp, 'Hack');
end;

procedure TForm1.Button9Click(Sender: TObject);
var
 i:Integer;
begin
 Windows.SetParent(StartBtnBmp, 0);
 for I := 0 to 500 do
  begin
   SetWindowPos(StartBtnBmp, 0,  10, i, 200, 80, SWP_SHOWWINDOW);
   Sleep(15);//Задержка в 5 миллисекунд
  end;
 Windows.SetParent(StartBtnBmp, StartBtnWnd);
end;

end.