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

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;

http://megawave.pe.kr/11

//[방법1] type function IsHungAppWindow(hwnd: HWND): boolean; stdcall; external user32 name 'IsHungAppWindow'; ... implementation ... if IsHungAppWindow(핸들) then {응답없음} // [방법2] // WM_NULL을 SendMessageTimeOut 으로 날려본다. // 정상적으로 처리되면 그 프로그램은 살아 있는거다 // 처리 안되면 응답없는거고

// 윈도우 사용자 이름 알아내기. function GetUserFromWindows : String; var UserName : String; UserNameLen : Dword; begin UserNameLen := 255; SetLength(userName, UserNameLen); if GetUserName(PChar(UserName), UserNameLen) then Result := Copy(UserName,1,UserNameLen - 1) else Result := ''; end;

// 컴퓨터 이름 알아내기. function GetComputerNetName: String; var buffer: array[0..255] of char; size: dword; begin size := 256; if GetComputerName(buffer, size) then Result := buffer else Result := '' end;

// 파일 휴지통으로 보내기. function DeleteFileWithUndo(sFileName : String ) : Boolean; var fos : TSHFileOpStruct; begin FillChar( fos, SizeOf( fos ), 0 ); with fos do begin //Wn := application.handle; wFunc := FO_DELETE; pFrom := PChar( sFileName ); fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRM!ATION or FOF_SILENT; end; Result := ( 0 = ShFileOperation( fos ) ); end;

// 파일 선택해서 아이콘 가져오기. function GetFileIcon(sFileName: String; IsSmall: Boolean) : HIcon; var SHFileInfo: TSHFileInfo; vFlag : Cardinal; begin vFlag := SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_EXETYPE; if IsSmall then vFlag := vFlag or SHGFI_SMALLICON; ShGetFileInfo( PChar( sFileName ), 0, SHFileInfo, SizeOf( TSHFileInfo ), vFlag ); Result := SHFileInfo.hIcon; end; 해당 파일의 full path를 포함한 이름을 ..

웹게시판처럼 페이지를 나눠서 보여줘야 할 경우가 상당히 많았는데, 이번 기회에 웹페이지 나누는 것과 같은 기능을 하는 컴포넌트를 만들었다. 이름하여 TMarsPagePanel ! 기존의 TPanel 을 상속받아서 그 위에 TMarsImageButton 을 얹어서 만들었다. 아직 보완해야 할 부분이 많지만 혼자 쓰기에는 적당한 것 같다.