こんな方法でコピーが出来るとは知らなかった。 CopyFile(PChar( sSource ), PChar( sDest ), bOverWrite);

大小判定というものは、使っていないプログラムはないといって良いくらい頻繁に用いられる。これが「大きいか否か」、「小さいか否か」といった他方に排中律が適用できる二分岐判定なら容易に出来るものの、「大きいのか等しいのか小さいのか」といった三分…

MDI アプリを作るときに問題となってくるのが、メニュー（以下：MainMenu）の切り替え方である。MSOffice などを例にとるとわかりやすいが、子ウィンドウがある場合と、全て閉じてしまった場合では、MainMenu の中身が若干異なる。この例を初めとして、アク…

procedure GetFileFromURL(URL, FileName: string); var hService: HINTERNET; begin if hSession<>nil then begin hService:= InternetOpenUrl(hSession, PChar(URL), nil, 0, INTERNET_FLAG_RELOAD, 0 ); if hService<>nil then WriteFromInetHandle(hServ…

procedure WriteFromInetHandle(Handle: HINTERNET; FileName: string); var F: File; lpBuffer: PChar; i: Integer; dwBytesRead: DWORD; iLength: Integer; begin dwBytesRead:= 102400; lpBuffer:= PChar(AllocMem(102400)); AssignFile(F, FileName); Re…