Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите, как создать программу!!! [WinXP]

Timskiy © (2005-08-11 01:13:00)
Как написать маленькую программу, что бы можно было открывать и закрывать "СИДИРОМ"(вопрос тупой, просто я не смогу его нормально построить)
- я хочу сделать маленькие 2-е кнопочки на робочем столе, что бы нажав на одну "СИДИРОМ" открывался, а на другую ..., закрывался!!!
- сделать и х в маленьком окошечке и что бы их можно было перемещать (как "ВИНАМП") по рабочему столу!!!
- С "Delphi" не разу ни "РАЗГОВАРИВАЛ", так что и не знаю, поможет она или нет!!!

Tonich (2005-08-11 10:03:00) [1]

> Marser © (11.08.05 01:30) [3]

блин , еще когда писал думал , только бы не забыть , таки забыл

Tonich (2005-08-11 10:03:00) [2]

> Marser © (11.08.05 01:30) [3]

блин , еще когда писал думал , только бы не забыть , таки забыл

Думкин (2005-08-11 07:24:00) [3]
Удалено модератором

Marser (2005-08-11 01:30:00) [4]

> Tonich © (11.08.05 1:27) [2]

Если уж говоришь А, то и B неплохо бы.
uses mmsystem

Tonich (2005-08-11 01:27:00) [5]
//Для открытия
procedure TForm1.OpenBtnClick(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

//Для закрытия
procedure TForm1.CloseBtnClick(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

один из способов

Проект Delphi World © Выпуск 2002 - 2004

Marser (2005-08-11 01:24:00) [6]
Удалено модератором

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »