소심한 개구쟁이의 일상

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) ImageList1: TImageList; ListView1: TListView; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} const Tool_Controls = 120; File_Controls = 124; function Load..

카테고리 없음 2023. 9. 11. 10:20

{+------------------------------------------------------------ | Procedure PrintMemo | | Parameters: | aMemo: memo to print | centerVertical: true if output should be centered vertically | centerHorizontal: true if output should be centered horizontally | Call method: | static | Description: | Prints the contents of a memo on the currently selected | printer, using the memos Font. The output can..

카테고리 없음 2023. 9. 11. 10:12

procedure TForm1.Button3Click(Sender: TObject); var p : Pchar; s : string; begin if DDEClientConv1.SetLink('IEXPLORE','WWW_GetWindowInfo') then begin Label1.Caption := 'Connected'; if DDEClientConv1.OpenLink then begin p := (DDEClientConv1.RequestData('0xFFFFFFFF')); s := String(p); Label2.Caption := copy(s,2,pos('","',s)-2); {pick out url from '"www.somewhere.com","title of page",'} strdispose(..

카테고리 없음 2023. 9. 9. 08:15

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function RemoteComputerExists(const ComputerName : String) : Boolean; { R..

카테고리 없음 2023. 9. 9. 08:13