phonetic.dpr

来自「语音与识别技术包含很多C语言处理模块系统」· DPR 代码 · 共 27 行

program Phonetic;
                  
uses
  Forms,
  Windows,
  Edit in 'Edit.pas' {EditMainForm},
  TPlayWaveUnit in 'TWaveUnit\TPlayWaveUnit.pas',
  TRecordWaveUnit in 'TWaveUnit\TRecordWaveUnit.pas',
  TCMWaveType in 'TWaveUnit\TCMWaveType.pas',
  PublicType in 'PublicType.pas',
  SetVolSys in 'SetVolSys.pas' {SetVolSystem};

{$R *.res}
var
  h: HWND;
begin
  h := FindWindow(WaveSoundClass, NIL);
  if h > 0 then
  begin
    SendMessage(h, WM_CM_RESTORE, 0, 0);
    Exit;
  end;
  Application.Initialize;
  Application.CreateForm(TEditMainForm, EditMainForm);
  Application.Run;
end.