분류 전체보기590 웹상의 이미지 불러오기 uses IdURI, JPEG, IdHTTP ; procedure TForm1.Button1Click(Sender: TObject); var ImageURL: String; begin ImageURL := 'http://eventzone.hanafos.com/images/8spot_131x121.gif'; GetWebImage(ImageURL); end; procedure TForm1.GetWebImage(AImageURL: String); var ImageStream: TMemoryStream; URI: TidURI; ImagePath: String; JPI: TJPEGImage; HTTP: TIdHTTP; begin ImageStream := TMemoryStream.Create; HTTP := TI.. 2008. 7. 24. 전체 컨트롤 속성 변경 for i := 0 To ComponentCount - 1 do begin if Components[i] is TLabel Then TLabel(Components[i]).Visible := False; end; 2008. 7. 24. 작업표시줄에서 표시 안하기 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. 이전 1 ··· 137 138 139 140 141 142 143 ··· 148 다음