Delphi サンプルコード

◇Delphi のサンプルコードです。ソフト開発に利用した他の方のソース中心に紹介します。◇

スプラッシュフォームの方法 (2000.01.16a)

S_JISコード文字の表示 (2000.05.03a)

MS-DOSプロンプトのdirコマンドを実行しテキスト表示 (2000.10.11a)

スプラッシュフォームの方法 (2000.01.16a)

メインの unit に次のコードを Initialization に記述します。

Initialization

form2:=Tform2.create(nil);

form2.show;

form2.update;

end.

implementation の次に form2 の uint 名を記述します。

implementation



uses Unit2;

form2 の FormDeactivate に次のように記述します。

procedure TForm2.FormDeactivate(Sender: TObject);

begin

release;

end;

これで、完成です。

S_JISコード文字の表示 (2000.05.03a)

メインの unit に次のコードを Initialization に記述します。

var st:TStringList;
 sx,sy:integer;

begin
 for sx:=$81 to $9f do
  begin
　 for sy:=$40 to $7e do st.add(chr(sx)+chr(sy));
　 for sy:=$80 to $fc do st.add(chr(sx)+chr(sy));
  end
for sx:=$e0 to $fc do
 begin
  for sy:=$40 to $7e do st.add(chr(sx)+chr(sy));
  for sy:=$80 to $fc do st.add(chr(sx)+chr(sy));
 end;//for sx

end;

MS-DOSプロンプトのdirコマンドを実行しテキスト表示 (2000.10.11a)

MS-DOSプロンプトの dir コマンドの結果をテキストに保存して、それをテキストに関連づけられたソフトで開くものです。

var cmdpath,cmdline:array[0..MAX_PATH] of
char;

begin
 GetEnvironmentVariable('Comspec',cmdpath,sizeof(cmdpath));
 st:=' /c dir '+tt+' >'+'"'+temptext+'"';
 StrPCopy(cmdline,string(cmdpath)+st);
 GetStartupInfo(si);
 si.wShowWindow:=SW_HIDE;
 Win32Check(CreateProcess(nil,cmdline,nil,nil,false,0,nil,nil,si,pi));
end;

procedure TForm1.MfilefindClick(Sender: TObject);
begin
ShellExecute(handle,'find','','','',SW_SHOW);
end;