김프로의 개발노트

이번시간에는 ShellExecute 를 사용하여 프로그램을 실행하는방법을 알아보도록 할게요. 이번 코드는 아주 간단합니다. 몇줄되지않는 코드로 프로그램을 실행할수있어요. 프로그램을 실행하기위해서는 딱 한가지가 필요합니다. 프로그램의 경로! 이건 실행하려는 프로그램을 선택후 오른쪽마우스 -> 속성 -> 보안탭에서 가장상단에 개체이름 옆에 있는 내용을 복사하시면 됩니다~ 위와같이 개체이름을 복사하시면 됩니다~ uses ShellAPI; var begin ShellExecute(Handle, 'open', PChar('경로'), nil, nil, SW_SHOW); end; 위와같이 코딩을 하시면 경로에 쓰여져있는 프로그램이 실행이 됩니다 아주 간단하죠? 여기까지 ShellExecute 를 사용하여 프로그램을 ..

이번 포스팅에서는 프로세스를 강제종료하는방법을 배워보도록 할게요. 우선 프로세스이름을 알아야겠죠? Project1.exe 이라는 프로세스를 강제로 종료해보려고해요. 우선 종료할 프로세스의 pid 프로세스아이디를 알아야하는데요. 프로세스 아이디를 변수에 먼저 저장을 해줘야합니다. GetProcessID 를 이용하여 pid 를 가져올게요. 예제는 아래와 같습니다. function GetProcessID(Process: String): Cardinal; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result:=0; FSnapshotHand..

이번 포스팅에서는 델파이에서 Split 를 사용하는 방법을 알아보도록 할게요. 따로 설명드릴게 없이 코딩으로 바로 보여드리겠습니다. type TBananaArray = array of string; TBananaArray 에 스트링어레이들을 선언해줍니다. 임의값이니 아무렇게나 바꾸셔도 상관없습니다. Function Split(Str :string;First:string;Second:string):TBananaArray; var Source : string; i:integer; begin try Screen.Cursor:=crDefault; Source := Str; i:=0; SetLength(Result,9999); while Pos(First,Source) > 0 do begin Source := C..

위와 같이 델파이 서브폼도 작업표시줄에 나타내고 싶다면 아래 코드를 해당하는 폼에 적용시키면 쉽고 간단하게 작업표시줄에 나타낼수있습니다~ procedure CreateParams(var Params: TCreateParams); override; procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.ExStyle := WS_EX_APPWINDOW; end; 간단하죠? 모르는부분은 댓글로 남겨주시면 친절하게 답변하겠습니다~ 감사합니다