Application/Delphi Lecture126 작업표시줄에서 표시 안하기 Application.Showmainform:=false; 써비 wrote: > Forms, > Unit1 in 'Unit1.pas' {Form1}, > Windows; > > {$R *.RES} > var > ExtendedStyle : Integer; > begin > Application.Initialize; > ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE); > SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW,$s:LF> AND NOT WS_EX_APPWINDOW); > Application.CreateForm(TForm1, Form1.. 2008. 7. 24. 파일 목록 구하기 procedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; FileAttrs: Integer; begin StringGrid1.RowCount := 1; if CheckBox1.Checked then FileAttrs := faReadOnly else FileAttrs := 0; if CheckBox2.Checked then FileAttrs := FileAttrs + faHidden; if CheckBox3.Checked then FileAttrs := FileAttrs + faSysFile; if CheckBox4.Checked then FileAttrs := FileAttrs + faVolumeID; if CheckBox5.Checked.. 2008. 7. 24. 이미지 프린트 하기 이번에 올리는 자료는 지난번 이미지 프린트에대한 소스를 조금 수정했습니다... 바뀐부분만 간단히 설명드리겠습니다. 우선 Parameter가 추가 되었습니다... 만일 아래와 같이 호출한다면 ImagePrint(30, //용지에서 왼쪽의 기본 여백을 30mm로 한다는 것입니다. image1, //요건 그냥 TImage Object입니다. 50, //이미지를 용지에 출력할때 용지상의 폭입니다. //단위는 mm이구요.. 80, //요건 길이 입니다. False); //Stretching시 이미지 기준이면 True입니다. 별거 아니지만 고마움의 표시로 생각해 주세요.... procedure ImagePrint(tX: Integer; Ti: TImage; pX, pY: Integer; Balances: Boole.. 2008. 7. 24. 비베의 split 함수 구현 procedure THttpControler.split(separator, Content: string; Strings: TStringList); var i: integer; position: integer; sepa_leng: integer; item: string; sepa_content: string; begin position := 0; sepa_leng := length(separator); sepa_content := Content; Strings.BeginUpdate; try i := Pos(separator, sepa_content); while i > 0 do begin item := copy(sepa_content,position, i-1); sepa_content := copy(sep.. 2008. 7. 24. 이전 1 ··· 27 28 29 30 31 32 다음