삽질하는 프로그래머 통통만두의 판톼스틱한 삽질기

1. ActiveX Library 프로젝트를 생성한다. 2. Active Server Object 프로젝트를 생성한다. 3. 생성할 Object 명을 입력한다. 4. 자동으로 테스트 asp 파일까지 만들어준다. 프로젝트명은 델파이 프로젝트 명이고, 오브젝트명은 3번에서 입력한 CoClass Name 가 된다. 5. 메소드 or 프로퍼티 등 필요한 것들을 만든다. Method로 할 경우, Return Type 는 HRESULT에서 수정을 하지 못한다. (적어도 "Active Server Object" 에서는, Com Object 에서는 BSTR 등이 가능하다) 대신에 Parameters 에서 Modifier 을 Out, Retval 로 하면 Return 으로 설정 가능하다. (단, ..

function Tfrm_100.GetPanelImage(Panel:TPanel): TBitmap; var Ofs: Integer; begin if Assigned(Panel) then begin Result := TBitmap.Create; try Result.Width := Panel.ClientWidth; Result.Height := Panel.ClientHeight; Result.Canvas.Brush := Panel.Brush; Result.Canvas.FillRect(Panel.ClientRect); Result.Canvas.Lock; try if GetWindowLong(Panel.Handle, GWL_STYLE) and WS_BORDER 0 then Ofs := -1 // Don't dr..

procedure CreateParams(var params:TCreateParams); override; window class 속성에 보면 WndParent라는게 있습니다. TForm 속성이 아니구요 WndParent 속성이 Application의 MainForm의 Handle로 되어있지 않고 DesktopWindow로 되어있는 경우 그렇게 나타납니다. 주로 dll에 Form이 포함되어잇는경우 Dll안에 Form들이 작업창에 나타나곤 하죠 [방법1] TForm의 CreateParams 함수롤 오버라이드 해서 아래와 같이 Params에서 WndParnet를 메인윈도우핸들로 설정해주면 됩니다. procedure TForm2.CreateParams(var Params: TCreateParams); begi..

Project - Options 로 들어간다. Linker - Map File - Detailed 를 선택 후 "OK" 버튼을 누른다. 그럼 프로젝트가 저장되는 폴더에 프로젝트 이름.map 파일이 생성된다. 에러난 주소 $00456415에서 HIntance인 $00400000을 뺀다. 그리도 PE포맷의 헤더등 불필요한 앞부분 사이즈인 $1000 도 뺀다. 그러면 $00055415가 된다. 그러면 map파일에서 $00055415를 찾아보면 33line 0001번째 문자에서 에러가 났다는 것을 알 수 있다. XP, 2000에서는 HInstance는 항상 $00400000이고 델파이로 만들어진 EXE의 PE헤더정보는 항상 $1000 바이트이다. 그러므로 에러가 난 주소 = 에러화면에 나온주소 - $004100..

procedure TfrmMain.NavigateToPost(m_WebBrowser: IWebBrowser2; const URL: String); const _POST_HEADER = 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0; var Header : OleVariant; VPostData : OleVariant; tmp : OleVariant; MainURL : OleVariant; BufferArr : TArrayString; PostData : String; Loop : Integer; T : IWebBrowser; begin try Header := _POST_HEADER; BufferArr := ParceStr(URL, '?'); ..

procedure TForm1.Button1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0 : ExitWindowsEx(EWX_FORCE, 0); //강제종료 1 : ExitWindowsEx(EWX_LOGOFF, 0); //LOG OFF 2 : ExitWindowsEx(EWX_POWEROFF,0); //Shut Down & Turn Off 3 : ExitWindowsEx(EWX_REBOOT, 0); //Shut Down & Reboot 4 : ExitWindowsEx(EWX_SHUTDOWN, 0); //ShutsDown end; end;

IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')); try IniFile.WriteString('CONFIG','OriginalFolder', STRING_1); STRING_2 := IniFile.ReadString('CONFIG', 'DestFolder', DEFAULT); finally IniFile.Free; end; Use File = IniFiles Var = IniFile : TIniFile STRING_1 = INI 파일에서 읽은 값을 저장할 문자열 변수 STRING_2 = INI 파일에서 읽은 값을 저장할 String or Integer 형 변수 DEFAULT = 해당하는 Section에 Ident가 없을 때 이..

function Tfrm_UMS.FindConVersionDrive : Boolean; var Loop : Integer; reg : TRegistry; begin Result := False; reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\ImageMaker\ODCDSK\BW', False); PrinterName := reg.ReadString('PrinterName'); finally reg.Free; end; if PrinterName = '' then Exit; Printer.Refresh; for Loop := 0 to Printer.Printers.Count-1 do begin if P..

function TSearchThread.FindDrive : Boolean; var DriveChar : Char; begin Result := false; while DriveChar < 'Z' do begin case GetDriveType( PChar(String(DriveChar) + ':') ) of 0 : // The drive type cannot be determined. 1 : // The root directory does not exist. DRIVE_REMOVABLE : // The drive can be removed from the drive. DRIVE_FIXED : // The disk cannot be removed from the drive. DRIVE_REMOTE : ..

procedure Tfrm_UMS.lv_SMSSendListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin if (Source.ClassNameIs(_US_DRAG_ELTREE_OBJECT)) or (Source.ClassNameIs(_US_DRAG_CONTROL_OBJECT_EX)) then Accept := True else Accept := False; end; _US_DRAG_ELTREE_OBJECT = 'TELTreeDragObject' _US_DRAG_CONTROL_OBJECT_EX = 'TDragControlObjectEx' Source.ClassNameIS 를 통해서 ..

// 프로그램에서 서브 프로그램을 실행시킨 후 종료시까지 대기한 후, 종료가 되면 실행 procedure Tfrm_UMS.InstallConversion; var StartupInfo : TStartupInfo; ProcessInfo : TProcessInformation; nFlag : Boolean; FileName : String; nCardinal : DWORD; nHandle : HWND; Cnt : Integer; begin VCLUnZip.ClearZip; Cnt := 0; nFlag := False; FileName := ExtractFilePath(Application.ExeName) + 'plugin' + _USE_CONVERSION_FILE_PATH + 'Setup.exe'; try ..

{ 지정 함수를 쓰레드에 실어서 실행시키는 클래스 (델파이 버전) 델파이라고 해서 다를 것은 없습니다. 다만, 델파이와 C++의 약간의 언어적 차이만 손보면 동일하게 동작합니다. 설명은 아래의 팁 지정 함수를 쓰레드에 실어서 실행시키는 클래스를 보시기 바랍니다. } unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(S..

나의 경우에는 패시브 모드를 True로 해줌으로써 해결했다.

procedure TForm2.Button1Click(Sender: TObject); var HParent : HWND; HChild : HWND; begin HParent := FindWindow('TForm1', nil); if HParent 0 then begin HChild := FindWindowEx(HParent, 0, 'TButton', nil); if HChild 0 then begin SendMessage(HChild, WM_LBUTTONDOWN, 0, 0); SendMessage(HChild, WM_LBUTTONUP, 0, 0); end; end; end;