> MS Office 97À» ½ÇÇàÇϸé È¸é ¿ìÃø¿¡ µµ±¸¸ðÀ½ÀÌ »ý±â Àó¾Æ¿ä?
> ±×·± µµ±¸¸ðÀ½ Bar´Â ¾î¶»°Ô ¸¸µå´ÂÁö?
> µµ±¸¸ðÀ½À» ÁÂÃø ¶Ç´Â À§·Î ¿òÁ÷ÀÌ¸é ¹ÙÅÁȸéÀÌ ¿ìÃø ¶Ç´Â ¾Æ·¡·Î µµ±¸¸ðÀ½
> ÆøÀ̳ª
> ³ôÀ̸¸Å Á¶±Ý¾¿ À̵¿Çϴµ¥ ±× 󸮴 ¾î¶»°Ô ÇÏ´ÂÁö¿ä...
> ´äº¯Àº park6394@Unitel.co.kr ¶Ç´Â dragon@ahone.co.kr·Î º¸³» ÁÖ¼¼¿ä..
> ±×·³ ºÎŹ µå¸³´Ï´Ù....
´ÙÀ½ source´Â Á¦°¡ Å×½ºÆ® ÇÑ ³»¿ëÀ̱¸¿ä, ¾Æ·¡ source¿¡
ÇѰ¡Áö ºüÁø ³»¿ëÀÌ ÀÖ½À´Ï´Ù(Àú¸¸ ´ÙÇϸé Àç¹Ì ¾øÀ¸´Ï±î...)
±×°Ç formÀ» desktopÀÇ ÁÂ,¿ì,»ó,ÇÏ·Î À̵¿ÇÒ ¶§ formÀÇ
ÇüŰ¡ ¹Ù²î´Â °ÍÀε¥ ±×°ÍÀº ¾Æ·¡ source¿¡ ÁÖ¼®Ç¥½Ã°¡
µÈ °÷À» Âü°íÇϼ¼¿ä.
±×·³ ÁÁÀº °á°ú Àֱ⸦...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
BB_Calc: TBitBtn;
BB_Close: TBitBtn;
BB_notepad: TBitBtn;
Label1: TLabel;
Label2: TLabel;
procedure BB_CloseClick(Sender: TObject);
procedure BB_CalcClick(Sender: TObject);
procedure BB_notepadClick(Sender: TObject);
private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure ExecNewProcess(ProgramName: String);
var
StartInfo : TStartupInfo;
ProcInfo : TProcessInformation;
CreateOK : Boolean;
begin
FillChar(StartInfo, SizeOf(TStartupInfo),#0);
FillChar(ProcInfo, SizeOf(TProcessInformation),#0);
StartInfo.cb := SizeOf(TStartupInfo);
CreateProcess(PChar(ProgramName),nil, nil, nil,False,
CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS, nil,
nil, StartInfo, ProcInfo);
end;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
// ÀϹÝÀûÀÎ ÆûÀÇ Æ¯¼ºÀ» ´Ù¸£°Ô ÁöÁ¤
inherited CreateParams(Params);
Params.style := WS_Popup or
WS_ClipChildren or
WS_ClipSiblings or
WS_Border;
end;
procedure TForm1.WMNCHitTest(var Msg: TMessage);
begin
// À©µµ¿ìÁî¿¡¼ WM_NCHITTEST ¸Þ½ÃÁö¸¦ Àü´Þ¹Þ¾Æ¼ ÆûÀÇ Çü½ÄÀ» ´Ù¸£°Ô ÁöÁ¤
// ¿ÞÂÊ ¸¶¿ì½º ¹öưÀ¸·Î FormÀ» dragÇÏ¿© À̵¿ÇÒ ¼ö ÀÖ°Ô µË´Ï´Ù
if GetAsyncKeyState(VK_LBUTTON) < 0 then
Msg.Result := HTCAPTION
else
Msg.Result := HTCLIENT;
// Âü°íÇÏ½Ã¶ó±¸ ÇöÀç formÀÇ ÁÂÇ¥¸¦ Ç¥½ÃÇØºÃÀ½
Label1.Caption := IntToStr(Self.Left);
Label2.Caption := IntToStr(Self.Top);
// Self.Width¿Í Self.Height¸¦ º¯°æÇϸé
// formÀÇ ÇüŸ¦ ¹Ù²Ü ¼ö ÀÖ½À´Ï´Ù
// ?
// ?
end;
procedure TForm1.BB_CloseClick(Sender: TObject);
begin
Close;
end;
procedure TForm1.BB_CalcClick(Sender: TObject);
begin
// ÀÌ ¹öưÀ» ´©·ç¸é calc.exe°¡ ½ÇÇàµË´Ï´Ù
ExecNewProcess('c:windowscalc.exe');
end;
procedure TForm1.BB_notepadClick(Sender: TObject);
begin
// ÀÌ ¹öưÀ» ´©·ç¸é notepad.exe°¡ ½ÇÇàµË´Ï´Ù
ExecNewProcess('c:windowsnotepad.exe');
end;
end.
|
|