에디트에 화일명을 넣어면 실행되게 할려구 하는데 잘안되네염. 아래 소스가 잘못됐나염? 글구 실행화면을 폼안에넣고 싶은데 어떻게 해야돼는지 진행방향이라두 갈켜주세염 감사(꾸벅)
var
Str: string;
begin
Str:= '문서1.ppt' WinExec(PChar('powerpoint.exe' +Str),SW_SHOWNORMAL); end;
또는
var
Str: string;
begin
Str:= Edit1.Text; WinExec(PChar('powerpoint.exe' + Str), SW_SHOWNORMAL); end;
올바르게 동작하지 않았나 봅니다.
그런데 종료시 Powerpoint에서 오류가 발생하네요. ㅡㅡ;
즐푸하세요
<< C++ Builder >>
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HWND wnd;
AnsiString Str = "c:\temp\test.ppt";
AnsiString ClassName;
WinExec( ((AnsiString) "C:\Program Files\Microsoft Office\Office\POWERPNT.EXE " + Str).c_str(),SW_HIDE );
Sleep( 2000 ); // PowerPoint가 실행될때까지 기다림.
ClassName = "PP9FrameClass"; // PowerPoint의 ClassName임. SPY로 찾음.
wnd = FindWindow( ClassName.c_str(), NULL );
::SetParent( wnd, Handle );
SetWindowPos( wnd, 0, 0, 0, ClientWidth, ClientHeight, SWP_NOZORDER | SWP_SHOWWINDOW );
}
<< Delphi >> - 테스트 못함.
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HWND wnd;
AnsiString Str := "c:MyFolderMyFile.ppt";
AnsiString ClassName;
WinExec( (PCHAR) ('C:Program FilesMicrosoft OfficeOfficePOWERPNT.EXE ' + Str),SW_HIDE );
Sleep( 2000 ); // PowerPoint가 실행될때까지 기다림. 프로세스가 실행됐는지 검사하는 명을을 사용해도 됨.
ClassName := 'PP9FrameClass'; // PowerPoint의 ClassName임. SPY로 찾음.
wnd := FindWindow( ClassName, NULL );
Windows.SetParent( wnd, Handle );
SetWindowPos( wnd, 0, 0, 0, ClientWidth, ClientHeight, SWP_NOZORDER | SWP_SHOWWINDOW );
}