Много вопросов по программироанию в Delphi 7(нужна помощь)

[*Devil*]

Пожалуйста Ответте на эти вопросы

1. У меня есть почти готовая прога из 3 формы...
1 форма это заставка
2 это главная
3 опции
Мне надо сделать так чтобы музыка начинала играть сома со второй
формы, а на третей можно было изменить композицию из списка
песен, отключить её или сделать звук потише.
Может кто раньше писал что то такое и может мне описать весь этот процесс, а то я до этого с такими компонентами не встречался...

2 Помогите кто нибудь разобраться с экспортом текста из RichEdit в word. Надо нажимая кнопку отправить его в word или типо того, очень надо, по ссылкам лазил много инфы и нечего талковаго..

3 и ёще вопросик как можно показать текст в listbox если слово больше чем размеры listbox

[Demi]

Сообщение от *Devil*

Помогите кто нибудь разобраться с экспортом текста из RichEdit в word. Надо нажимая кнопку отправить его в word или типо того, очень надо, по ссылкам лазил много инфы и нечего талковаго...

Сохранаяй в РТФ и запускай Ворд с параметром адреса файла...

[Demi]

Или через Оле...

uses
   Word_TLB, ActiveX, ComObj;

 function GetRTFFormat(DataObject: IDataObject; var RTFFormat: TFormatEtc): Boolean;
 var
   Formats: IEnumFORMATETC;
   TempFormat: TFormatEtc;
   pFormatName: PChar;
   Found: Boolean;
 begin
   try
     OleCheck(DataObject.EnumFormatEtc(DATADIR_GET, Formats));
     Found := False;
     while (not Found) and (Formats.Next(1, TempFormat, nil) = S_OK) do
     begin
       pFormatName := AllocMem(255);
       GetClipBoardFormatName(TempFormat.cfFormat, pFormatName, 254);
       if (string(pFormatName) = 'Rich Text Format') then
       begin
         RTFFormat := TempFormat;
         Found := True;
       end;
       FreeMem(pFormatName);
     end;
     Result := Found;
   except
     Result := False;
   end;
 end;

 procedure WriteToMSWord(const RTFText: String);
 var
   WordDoc: _Document;
   WordApp: _Application;
   DataObj : IDataObject;
   Formats : IEnumFormatEtc;
   RTFFormat: TFormatEtc;
   Medium : TStgMedium;
   pGlobal : Pointer;
 begin
     try
       GetActiveOleObject('Word.Application').QueryInterface(_Application, WordApp);
     except
       WordApp := CoWordApplication.Create;
     end;
     WordApp.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
     WordApp.Visible := True;
     WordDoc := WordApp.ActiveDocument;
     OleCheck(WordDoc.QueryInterface(IDataObject,DataObj));
     GetRTFFormat(DataObj, RTFFormat);
     FillChar(Medium,SizeOf(Medium),0);
     Medium.tymed := RTFFormat.tymed;
     Medium.hGlobal := GlobalAlloc(GMEM_MOVEABLE, Length(RTFText)+1);
     try
      pGlobal := GlobalLock(Medium.hGlobal);
      CopyMemory(PGlobal,PChar(RTFText),Length(RTFText)+1);
      GlobalUnlock(Medium.hGlobal);
      OleCheck(DataOBJ.SetData(RTFFormat,Medium,True));
     finally
       GlobalFree(Medium.hGlobal);
       ReleaseStgMedium(Medium);
     end;
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   WriteToMSWord(Memo1.Text); // тут РТФ должен быть!!!!
end;

[*Devil*]

Пожалуйста Ответте на эти вопросы

1. У меня есть почти готовая прога из 3 формы...
1 форма это заставка
2 это главная
3 опции
Мне надо сделать так чтобы музыка начинала играть сома со второй
формы, а на третей можно было изменить композицию из списка
песен, отключить её или сделать звук потише.
Может кто раньше писал что то такое и может мне описать весь этот процесс, а то я до этого с такими компонентами не встречался...

2 Помогите кто нибудь разобраться с экспортом текста из RichEdit в word. Надо нажимая кнопку отправить его в word или типо того, очень надо, по ссылкам лазил много инфы и нечего талковаго..

3 и ёще вопросик как можно показать текст в listbox если слово больше чем размеры listbox
--------------------------------------------------------------------------

Demi Сохранаяй в РТФ и запускай Ворд с параметром адреса файла...

...а как это программно реализовать????????

[Shurik Hacker]

Сообщение от *Devil*

И еще вопросик как сделать чтобы форма плавно исчезала....

Всем привет, а вот и код...

var
    qqq: Byte;
.....
procedure TForm1.FormCreate(Sender: TObject);
begin
       qqq:=255;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 old: longint;
 hwin:HWND;

begin
 hwin:=FindWindow('Tform1', 'Form1');

      if hwin<>0 then
        begin
        old:=GetWindowLongA(hwin,GWL_EXSTYLE);
        SetWindowLongA(hwin,GWL_EXSTYLE,old or $80000);
        SetLayeredWindowAttributes(hwin, 0, qqq, $2);
        end;
     qqq:=qqq-1;
     if qqq=0 then timer1.Interval:=0;
end;

[Alex21]

1. Используй свойство FormActivate
Form2.MediaPlayer1.FileName:=’имя_музыкального_файла’;// {например: ‘C:\Music\123.mp3’ }
Form2.MediaPlayer1.Open;
Form2.MediaPlayer1.Play;
На третьей форме кинь:
- edit1 + кнопку(«Выбор музыки») + OpenDialog
->>> «Выбор музыки» напиши в ней:
if Form3.OpenDialog1.Execute then
begin
Form2.MediaPlayer1.Stop; //{пока колдуем с выбором новой песни у нас тишина}
Form3.Edit1.Text:= Form3.OpenDialog1.FileName; // {загрузка файла в Edit}
Form2.MediaPlayer1.FileName:=Form3. Edit1.text; // {загрузка файла в MediaPlayer из edit’a}
{Или, что аналогично}
Form2.MediaPlayer1.FileName:=Form3. OpenDialog1.FileName; // {загрузка файла в MediaPlayer из OpenDialog}
Form2.MediaPlayer1.Open; /{открыть файл}
Form2.MediaPlayer1.Play; // воспросизвести}
////////////////////////////////////////////////////////////////////
2. С уровнем звука:
В Uses Form3 добавь MMSYSTEM
В var добавь
volume: LongWord;
vol:integer;
Добавь процедуру:
procedure ChangeVol(A:integer); // А от 0 до 100
begin
vol:= (100-A);
volume := 6500*(Vol div 10);
volume := volume + (volume shl 16);
waveOutSetVolume(WAVE_MAPPER,volume );
end;
вызов процедуры: ChangeVol(Form3.TrackBar.Position); - к примеру в обработчике событий.
//////////////////////////////////
LIST BOX
Послать сообщение ListBox1 типа:
В Form2.Create(..) добавь:
begin
SendMessage(Listbox1.Handle, LB_SETHORIZONTALEXTENT, 1000, Longint(0));
end;