how to lock workstation? seems like shutdown

function LockWorkStation:BOOL; external user32 name 'LockWorkStation';....procedure TForm1.Button1Click(Sender: TObject); begin LockWorkStation; end;

PC 셧다운 (shutdown)

셧다운 해주는 기능은 다음과 같이 구현 할 수 있다.procedure ExitWin2000(ewx: integer);varhToken: THANDLE;hProc: THANDLE;mLUID: TLargeInteger;mPriv, mNewPriv: TOKEN_PRIVILEGES;mBufferLength: DWord;beginif not (ewx in [1, 2]) then exit;hProc := GetCurrentProcess();OpenProcessTok...

DirectShow에서 비디오 출력 크기 조정해주기

PinOut := GetPin(VideoCapture, 'Preview');PinOut.EnumMediaTypes(MediaEnum);While MediaEnum.Next(1, MediaType, nil) = S_OK doBeginif GUIDToString(MediaType.subtype) = GUIDToString(MEDIASUBTYPE_RGB24) thenbegin New(MediaType2); CopyMediaType(MediaType2, Medi...

ShellExecute 실행 끝날때 까지 기다리기

엄청난 비기 임... 흐흐흐...uses ShellAPI;{Supply a fully qualified path name in ProgramName}procedure KShellExecute(exe, param, dir: String);varExitCode: DWORD;SEInfo: TShellExecuteInfo;beginFillChar(SEInfo, SizeOf(SEInfo), 0);SEInfo.cbSize := SizeOf(TShellExecuteI...

디렉토리와 그 안에 있는 모든 파일 지우기

procedure TForm1.Button1Click(Sender: TObject);var DirInfo: TSearchRec; r : Integer;begin r := FindFirst('C:DownloadTest*.*', FaAnyfile, DirInfo); while r = 0 do begin if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <> Fa...

D&D – Rembering Yesterday

역시 D&D다.96년 댄스보컬그룹 D&D가 결성되어 여러 히트곳을 냈지만,지금 올리비아 래프킨은 엄청난 인기와 명예를 뒤로 한채솔로 활동중이다.애초에 락음악을 하고 싶었던 그녀는 멜로디컬한 모던 락으로 주로 곡을 만들었다.비록 키는 작지만, 서구적인 외모와 독특한 패션과 개성으로 일본 패션계의 새로운 메카로 자리잡고 있다고 한다.

레이 드 구르몽 – 낙엽

시몬!나무 잎새 저버린 숲으로 가자낙엽은 이끼와 돌과 조롱길을 덮고 있다.시몬!너는 좋으냐낙엽 밟는 발자욱 소리가낙엽의 빛깔은 정답고 쓸쓸하다낙엽은 덧없이 버림을 받아 땅위에 있다.시몬!너는 좋으냐낙엽 밟는 소리가석양의 낙엽 모습은 쓸쓸하다.바람에 부리울 적마다 낙엽은 상냥스러이 외친다.시몬!너는 좋으냐낙엽 밟는 발자욱 소리가가까이 오라.우리도 언젠가 가련한 낙엽이리라.가까이 오라.벌써 밤이 되었다.바람에 몸이 스민다.시몬!너는 좋으냐낙엽 밟는 소리가.

김남조 – 겨울 바다

겨울 바다에 가보았지미지의 새보고싶던 새들은 죽고 없었네.그대 생각을 했건만도매운 해풍에그 진실마저 눈물마저 얼어버리고허무의 불물이랑 위에 불붙어 있었네.나를 가르치는 건언제나 시간.......끄덕이며 끄덕이며 겨울바다에 섰었네.남은 날은적지만기도를 끝낸 다음더욱 뜨거운 기도의 문이 열리는그런 혼령을 갖게 하소서.남은 날은 적지만겨울 바다에 가보았지인고의 물이수심속에 기둥을 이루고 있었네.

용혜원 – 내 마음에 머무는 사람

한 순간 내 마음에 불어오는바람일 줄 알았습니다.이토록 오랫동안 내 마음을 사로잡고머무를 줄은 몰랐습니다.이제는 잊을 수 없는 여운이 남아지울 수 없는 흔적이 남아그리움이 되었습니다.우리들의 만남과 사랑이풋사랑인 줄 알았더니내 가슴에 새겨두어야 할사랑이 되었습니다.그대에게 고백부터 해야할 텐데아직도 설익은 사과처럼마음만 붉게 익어가고 있습니다.그대는 내 마음에 머무는사람이 되었습니다.

      1      2      3            354      355      356      357      358      359      360      361      362      363