Twelo Note

윈도우 예약 종료 프로그램 - WinExit from Delphi 1.0v

2011-12-12T17:37:00.000-08:00

살짝 업데이트 되었습니다.
Tray 제공과,
CreateMutex() 를 이용한 중복실행 방지가 적용 되었습니다.

포터블 형태로 Windows에서 실행이가능하기 때문에
가볍게 사용가능 합니다

Tip 트레이에서 오른쪽마우스 클릭으로 종료가능.

DOWNLOAD 1 : Blog
DOWNLOAD 2 : Google Docs

기능
- 예약기능(분단위로 가능)
- 종료/재부팅 기능 선택
- Windows OS 종속적
- Tray 제공
- 중복실행방지 제공

추가예정
- 현재 시간 표시
- 종료 예정시간 표시 ?! (프로그레스바 등..)
- 스킨.....예정

EloHide 진행중, 작업표시줄 표시 제거

2011-12-07T22:14:00.000-08:00

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
Button2: TButton;
Label1: TLabel;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function EnumWindowsProc(Wnd: HWND; lb: TListbox): BOOL; stdcall;
var
caption: Array [0..128] of Char;
cName: Array [0..MAX_PATH] of Char;
begin
Result := True;

if {skip invisible windows} IsWindowVisible(Wnd) and
{only process truly top-level windows. GetWindowLong must be used, not GetParent}
((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
(HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow)) and
{skip WS_EX_TOOLWINDOW windows}
((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0) and
(GetClassName(Wnd, cName, MAX_PATH)<>0) then
begin
if copy(cName,1,3) = 'Apo' then
begin
showmessage(cName);
SendMessage(Wnd, WM_GETTEXT, Sizeof(caption), integer(@caption));
lb.Items.AddObject(caption, TObject(Wnd));
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Clear;
EnumWindows(@EnumWindowsProc, Integer(ListBox1));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
Wnd: HWND;
begin
for i := 0 to ListBox1.Items.Count-1 do
begin
Wnd := HWND(ListBox1.Items.Objects[i]);
// 이 프로그램이 아니고 minimized(iconic)가 아니면...
if (Wnd <> 0) and (Wnd <> Application.Handle) then
if not IsIconic(Wnd) then
begin
ShowWindow(Wnd, SW_hide);
SetWindowLong(
Wnd,
GWL_EXSTYLE,
GetWindowLong(Wnd, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
ShowWindow(Wnd, SW_SHOW) ;
end
end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
theClassname: array [0..128] of Char;
Wnd: HWND;
tid, pid: DWORD;

begin
with Sender as TListbox do
begin
if ItemIndex >= 0 then
begin
Wnd := HWND(Items.Objects[itemindex]);
if Wnd <> 0 then
begin
Windows.GetClassname(Wnd, theClassname, Sizeof(classname));
tid := GetWindowThreadProcessID(Wnd, @pid );
label1.caption :=
Format(
'HWND: %8.8x'#13#10+
'Class: %s'#13#10+
'Process ID: %8.8x'#13#10+
'Thread ID: %8.8x',
[Wnd, theClassname, pid, tid] );
end;
end;
end;
end;

end.

참조 : 델마당, 볼랜드포럼,,

소스 긁어서 조합해서 만들었으며 정리안됨

폼 구조
버튼1/2/3/4 일단 2개만씀
리스트1/라벨1/

2011.12.08

- 정리하고 자동실행, 타스크바 표시 살리기 추가해야됨

델파이 윈도우 프로세스, 핸들

2011-12-07T01:59:00.000-08:00

WinExec(LPCSTR lpCmdLine ,UNIT uCmdShow);

TEST) Time := 'shutdown -'+Chkbot+ ' -t ' + IntToStr(ChkTime);

WinExec(PChar(Time) ,SW_HIDE);

si,pi 값을 넘겨주지 못한다. CreatProcess() pi값 리턴 가능. 생성창 불가능.

WaitForInputIdle(), CreatProcess() 이후 pi값 확인후 제어

sleep(); // delay

HandleID:= FindWindow(Nil,'시스템 종료'); // 핸들값 얻기 spy++ 기능 동일 이상하게 spy와 값이 다를 경우도 있음.

ShowWindow(HandleID, SW_HIDE) // 윈도우창 제어, hide,normal 등 api참조

DOCS에 쓰레드타이머 컴포넌트 등록

2011.12.07

윈도우 예약 종료 프로그램 - WinExit from Delphi 0.6v

2011-12-07T01:05:00.000-08:00

프로그래밍의 결과물을 생성하기 위해 무언가?! 애를쓰던도중
구다형의 WinExit 를 Delphi로 제작했다.

결과물이 나오긴했는데
먼가 허접하긴하지만

2틀간 많은 시행착오를 겪은 결과물

포터블 형태로 Windows에서 실행이가능하기 때문에
가볍게 사용가능 합니다

DOWNLOAD

Notice, 영화나, 다운로드 스케줄로 사용하려고 제작.

기능
- 예약기능(분단위로 가능)
- 종료/재부팅 기능 선택
- Windows OS 종속적

추가예정
- Tray 제공
- 중복실행방지 제공