Delphi заготовки

uses  ShlObj,ActiveX;


.....

function SelectDirCB(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer stdcall;
begin
  if (uMsg = BFFM_INITIALIZED) and (lpData <> 0) then
    SendMessage(Wnd, BFFM_SETSELECTION, Integer(True), lpdata);
  result := 0;
end;

function SelectDirectory(const Caption: string; const Root: WideString;
  var Directory: string): Boolean;
  const
 BIF_USENEWUI = $0040;
 BIF_NOCREATEDIRS = $0200;
var
  WindowList: Pointer;
  BrowseInfo: TBrowseInfo;
  Buffer: PChar;
  OldErrorMode: Cardinal;
  RootItemIDList, ItemIDList: PItemIDList;
  ShellMalloc: IMalloc;
  IDesktopFolder: IShellFolder;
  Eaten, Flags: LongWord;
begin
  Result := False;
  if not DirectoryExists(Directory) ... Читать дальше »

Получить имя файла без разришения

 function ExtractOnlyFileName(const FileName: string): string;
 begin
   result:=StringReplace(ExtractFileName(FileName),ExtractFileExt(FileName),'',[]);
 end;



дополнительно с сайта 
http://www.delphibasics.ru/ExtractFileName.php
... Читать дальше »

Процедурки конвертации файлов WinToDos  DosToWin

uses Classes,Windows;

function DosToWin(St: string): string; // из Dos в Win кодировку
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  OemToAnsi(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

Function WinToDos(const S: string):string;
var
  NewStr: string;
begin
  SetLength(NewStr, Length(S));
  Windows.CharToOem(PChar(S), PChar(NewStr));
  result:=NewStr;
end;

procedure CvWinToDos(Fl1,fl2:string);
var
  Txt:TStringList;
  begin
      txt:=TStringList.Create;
      txt.LoadFromFile(Fl1);
      txt.Text:=WinToDos(txt.Text);
      txt.SaveToFile(Fl2);
      txt.Free;
  end;

procedure CvDosToWin(Fl1,fl2:string);
var
  T ... Читать дальше »

Представляю программу для конвертации кодировок файлов из Win кодировки в Dos
Полезная программа для перевода из Pascal ABC  / Delphi В Borland Turbo Pascal

Написана на Delphi 7 для добавления функций пишите
ICQ 368-254-335
denis-naymov1985@mail.ru



/73_WinToDos.zip