블로그 이미지
~ 정윤식

카테고리

~ (494)
Tip (42)
Study (107)
자료 (34)
TCP/IP (9)
ATmega128 강의 (0)
AVR 강의 (0)
Project (0)
CAM (12)
Char LCD (4)
ADC 컨버터 (3)
어셈블리 (9)
Zigbee (12)
API (4)
Carrot (9)
ATmega (13)
ARM (3)
RFID (10)
초음파센서 (2)
AX-12 일기 (4)
관절로봇 (3)
FINAL (7)
FINAL KEEP (1)
C++ (8)
MFC (4)
Java (2)
문서 (0)
etc (8)
TFT LCD (0)
Program (3)
Image (1)
Delphi 자료 (5)
Delphi 레퍼런스 (135)
Delphi 컴포넌트 (0)
Delphi 알고리즘 (3)
Delphi Database (3)
K Base Program (0)
Jung (0)
Lee (0)
Web Site (1)
CAN (6)
Hardware (5)
SQL (3)
DB (7)
Component 관련 (8)
Error (3)
MS Outlook (0)
iTools (0)
VB (1)
Stock (0)
Total247,468
Today13
Yesterday10

달력

« » 2019.7
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      

공지사항

태그목록

excel데이타를 Grid로 가져오는 예제입니다(델파이7)
type
  TfrmMain = class(TForm)
    btOpenExcel: TButton;
    Button2: TButton;
    Grid: TStringGrid;
    procedure btOpenExcelClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    MyExcel : Variant;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses
  Comobj;

{$R *.dfm}

procedure TfrmMain.btOpenExcelClick(Sender: TObject);
begin
  MyExcel := CreateOleObject(`Excel.Application`);
  MyExcel.Workbooks.open(ExtractFilePath(Application.ExeName)+ `\testworkbook.xls`);
  MyExcel.worksheets[`testsheet`].activate;
  MyExcel.Visible := true;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
var
  i, j : integer;
begin
  for i := 0 to 4 do begin
    for j := 0 to 3 do
    begin
      Grid.Cells[j,i] := MyExcel.worksheets[`testsheet`].cells[i+3,j+1];
    end;
  end;
end;

end.

 

Posted by ~ 정윤식

폴더삭제

Delphi 레퍼런스 / 2013.06.13 16:54

uses ShellAPI;

//-----------------------------------------------------------------
// 디렉토리 및 파일을 지운다.
// 하위 디렉토리와 모든 파일도 함께 지워진다.
// 인자 설명
// - DirName : 지울 디렉토리명
// - UseRecycleBin : 휴지통을 사용할 것인가 여부 (아니면 영구삭제)
// 리턴값 설명
// - 성공 여부
//-----------------------------------------------------------------
function MinDeleteFile(const DirName : string;
const UseRecycleBin: Boolean): Boolean;
var
SHFileOpStruct: TSHFileOpStruct;
DirBuf: array [0..255] of char;
Directory: string;
begin
try
Directory := ExcludeTrailingPathDelimiter(DirName);

Fillchar(SHFileOpStruct, sizeof(SHFileOpStruct), 0);
FillChar(DirBuf, sizeof(DirBuf), 0);
StrPCopy(DirBuf, Directory);

with SHFileOpStruct do
begin
Wnd := 0;
pFrom := @DirBuf;
wFunc := FO_DELETE;
if UseRecycleBin = True then
fFlags := fFlags or FOF_ALLOWUNDO;
fFlags := fFlags or FOF_NOCONFIRMATION;
fFlags := fFlags or FOF_SILENT;
end;

Result := (SHFileOperation(SHFileOpStruct) = 0);
except
Result := False;
end;
end;

Posted by ~ 정윤식

전에 저두 통신으루 받았던건데..
밑에건 종료하는 프로그램 중간부분이구여..
첨부 화일에 전부 올리져~~
(전에 분명히 하이텔서 받았는뎅.. 올리신분이 누군지
정확히 기억이 않나네여 ^^;;;)

procedure Process32List(Slist: TStrings);
var
Process32: TProcessEntry32;
SHandle: THandle; // the handle of the Windows object
Next: BOOL;
begin
Process32.dwSize := SizeOf(TProcessEntry32);
SHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);

if Process32First(SHandle, Process32) then
begin
// 실행화일명과 process object 저장
Slist.AddObject(Process32.szExeFile, TObject(Process32.th32ProcessID));
repeat
Next := Process32Next(SHandle, Process32);
if Next then
Slist.AddObject(Process32.szExeFile, TObject(Process32.th32ProcessID));
until not Next;
end;
CloseHandle(SHandle); // closes an open object handle
end;


procedure TForm1.Button1Click(Sender: TObject);
var
h:HWND;
i:Integer;
s:String;
begin
ListBox1.Items.Clear;
Process32List(ListBox1.Items);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
hProcess: THandle;
ProcId: DWORD;
TermSucc: BOOL;
begin
if ListBox1.ItemIndex < 0 then System.Exit;
ProcId := DWORD(ListBox1.Items.Objects[ListBox1.ItemIndex]);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, TRUE, ProcId);
if hProcess = NULL then ShowMessage('OpenProcess error !');

TermSucc := TerminateProcess(hProcess, 0);
if TermSucc = FALSE then
ShowMessage('TerminateProcess error !')
else
ShowMessage(Format('Process# %x terminated successfully !', [ProcId]));
ListBox1.Items.Clear;
Process32List(ListBox1.Items);
end;

Posted by ~ 정윤식

최근에 달린 댓글

글 보관함