Question

您好我们正在使用Delphi 5版本。我们在delphi中打开记事本时遇到问题。我们想要在按钮单击时打开记事本并将数据传递给它，以便记事本可以显示该数据。我不想保存它。请帮我解决这个问题。感谢。

Answer 1

您可以使用以下内容：

uses
  Clipbrd;

procedure LaunchNotepad(const Text: string);
var
  SInfo: TStartupInfo;
  PInfo: TProcessInformation;
  Notepad: HWND;
  NoteEdit: HWND;
  ThreadInfo: TGUIThreadInfo;
begin
  ZeroMemory(@SInfo, SizeOf(SInfo));
  SInfo.cb := SizeOf(SInfo);
  ZeroMemory(@PInfo, SizeOf(PInfo));
  CreateProcess(nil, PChar('Notepad'), nil, nil, False,
                NORMAL_PRIORITY_CLASS, nil, nil, sInfo, pInfo);
  WaitForInputIdle(pInfo.hProcess, 5000);

  Notepad := FindWindow('Notepad', nil);
  // or be a little more strict about the instance found
//  Notepad := FindWindow('Notepad', 'Untitled - Notepad');

  if Bool(Notepad) then begin
    NoteEdit := FindWindowEx(Notepad, 0, 'Edit', nil);
    if Bool(NoteEdit) then begin
      SendMessage(NoteEdit, WM_SETTEXT, 0, Longint(Text));

      // To force user is to be asked if changes should be saved
      // when closing the instance
      SendMessage(NoteEdit, EM_SETMODIFY, WPARAM(True), 0);
    end;
  end
  else
  begin
    ZeroMemory(@ThreadInfo, SizeOf(ThreadInfo));
    ThreadInfo.cbSize := SizeOf(ThreadInfo);
    if GetGUIThreadInfo(0, ThreadInfo) then begin
      NoteEdit := ThreadInfo.hwndFocus;
      if Bool(NoteEdit) then begin
        Clipboard.AsText := Text;
        SendMessage(NoteEdit, WM_PASTE, 0, 0);
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LaunchNotepad('test string');
end;

Answer 2

您可以在按钮单击事件中使用以下命令。在textFileName.txt

中指定要打开的文件名

ShellExecute(Handle,'open', 'c:\windows\notepad.exe','textFileName.txt', nil, SW_SHOWNORMAL) ;

如果要打开空白的txt文件而不想保存任何数据，可以在click事件中使用以下方法。 ShellExecute(Handle,'open', 'c:\windows\notepad.exe',nil, nil, SW_SHOWNORMAL) ;

也在使用类中添加ShellApi。

更新代码

    procedure TForm1.Button1Click(Sender: TObject);
    var
    tempString : TStringList;
    begin
      tempString := TStringList.Create;
      try
        tempString.Add('The text you wanted to display');
        tempString.SaveToFile('C:\~tempFile.txt');
      finally
        tempString.Free;
      end;
      ShellExecute(Handle,'open', 'c:\windows\notepad.exe','C:\~tempFile.txt', nil, SW_SHOWNORMAL) ;
    end;

Answer 3

如果你不希望他们能够保存数据，那么让你自己的记事本看起来更合理，毕竟那就是TMemo的优点，然后只允许他们编辑文本 - 如果那样的话你的要求。否则，很少会阻止他们保存文件。

Answer 4

Delphi中的NotePad。

选择一个TMemo＆amp;将名称命名为：（memNotepad）
选择一个TrzOpenDialog（rzopdlgOpenDialog）
选择一个TrzSaveDialog（rzsvdlgSaveDialog）
选择一个FontDialog（ftdlgFontDialog）
选一TMainMenu（mmMainMenu）
- 添加菜单项文件：新建，打开，保存，另存，退出，编辑：剪切，复制，粘贴，字体

代码：

********************************************************************
unit ufrmNotePad;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, RzShellDialogs, cxGraphics, cxCustomData,
  cxStyles, cxTL, cxControls, cxInplaceContainer, IniFiles;

type
  TfrmNotepad = class(TForm)

    memNotePad: TMemo;
    rzopdlgOpenDialog: TRzOpenDialog;
    rzsvdlgSaveDialog: TRzSaveDialog;
    mmMainMenu: TMainMenu;
    mniFile: TMenuItem;
    mniSave: TMenuItem;
    mniOpen: TMenuItem;
    mniNew: TMenuItem;
    mniSaveAs: TMenuItem;
    mniEdit: TMenuItem;
    mniPaste: TMenuItem;
    mniCopy: TMenuItem;
    mniCut: TMenuItem;
    ftdlgFontDialog: TFontDialog;
    mniFont: TMenuItem;
    mniExit: TMenuItem;
    procedure mniOpenClick(Sender: TObject);
    procedure mniSaveClick(Sender: TObject);
    procedure mniNewClick(Sender: TObject);
    procedure mniSaveAsClick(Sender: TObject);
    procedure mniCopyClick(Sender: TObject);
    procedure mniPasteClick(Sender: TObject);
    procedure mniCutClick(Sender: TObject);
    procedure mniFontClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure mniEditClick(Sender: TObject);
    procedure mniExitClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

  private

    { Private declarations }
    procedure OpenDialog;
    procedure SaveDialog;
    procedure NewNotepad;
    procedure SaveAS;
    procedure Copy;
    procedure Cut;
    procedure Paste;
    procedure Font;
    procedure SaveSettingInToFile;
    procedure RetrieveSettingFromTheFile;
  public

    { Public declarations }
    FIniFile : TIniFile;
    FFileName : String;
    FCount : Integer;
  end;

var
  frmNotepad : TfrmNotepad;

implementation

{$R *.dfm}

{ Open File from the disk }

{ FCount- helps for save the file, if file is already save then FCount := 1 else FCount := 0}

{ FFileName - helps for store the filename of open filename or saved filename }

procedure TfrmNotepad.OpenDialog;

begin

  FCount := 1;

  rzopdlgOpenDialog.Title := 'Open File';

  rzopdlgOpenDialog.Filter := 'Text Files|*.txt; RTF Files|*.rtf';

  if rzsvdlgSaveDialog.FileName = FFileName then

  begin

    if rzopdlgOpenDialog.Execute then

      memNotePad.Lines.LoadFromFile(rzopdlgOpenDialog.FileName);

  end

  { if any file already opened and without saving the file try to open new file
    then message dialog box appears on the screen for save the file or save modification of the file }

  else if (memNotePad.Modified) then

  begin

    ModalResult := MessageDlg('Do you want to save Changes to untitled?',mtConfirmation,mbYesNoCancel,0);
    if (ModalResult = mrYes) then
    begin
      if rzsvdlgSaveDialog.Execute then
        memNotepad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');
      memNotePad.Clear;
      memNotePad.Modified := False;
    end
    else if (ModalResult = mrNo) then
    begin
      if rzopdlgOpenDialog.Execute then
      begin
        memNotePad.Lines.LoadFromFile(rzopdlgOpenDialog.FileName);
        FFileName := rzopdlgOpenDialog.FileName;
      end;
    end;
  end

  else if rzopdlgOpenDialog.Execute then

  begin

    memNotePad.Lines.LoadFromFile(rzopdlgOpenDialog.FileName);
    FFileName := rzopdlgOpenDialog.FileName;
  end;
  Caption := rzopdlgOpenDialog.FileName + ' - Delphi Notepad';

end;

{ Saving the file }

procedure TfrmNotepad.SaveDialog;

begin

  rzsvdlgSaveDialog.Title := 'Save';

  rzsvdlgSaveDialog.Filter := 'Text Files|*.txt; RTF Files|*.rtf';

  { if file already exist and after modification we try to save then it directly save into the file without opening the save dialog box }

  if FCount = 1 then

  begin

    { filename store in the FFileName is compare with the save dialog box filename
      if it matches then modification dirctly save into that file without opening the save dialog box }

    if rzsvdlgSaveDialog.FileName = FFileName then

      memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt')

    { filename store in the FFileName is compare with the open dialog box filename
      if it matches then modification dirctly save into that file without opening the save dialog box }

    else if rzopdlgOpenDialog.FileName = FFileName then

    begin

      rzsvdlgSaveDialog.FileName := rzopdlgOpenDialog.FileName;
      memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName);
    end;
  end

  { else file already not save then Save Dialog box open }

  else

  begin

    if rzsvdlgSaveDialog.Execute then
      memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');
    Caption := rzsvdlgSaveDialog.FileName + ' - Delphi Notepad';
    FCount := 1;
  end;
  FFileName := rzsvdlgSaveDialog.FileName;

end;

{ New Notepad }

procedure TfrmNotepad.NewNotepad;

begin

  if FCount = 1 then

  begin

    memNotePad.Clear;

    Caption := 'UnNamed Delphi Notepad';

  end

  else if not (memNotePad.Modified) then

  begin

    memNotePad.Clear;

    Caption := 'UnNamed Delphi Notepad';

  end

  { without saving the modification's of file if try to click on new then
    message dialog box appears on the screen for saving the modification's }

  else if (memNotePad.Modified) then

  begin

    ModalResult := MessageDlg('Do you want to save Changes',mtConfirmation,mbYesNoCancel,0);

    if (ModalResult = mrYes) then

    begin

      if rzsvdlgSaveDialog.Execute then
        memNotepad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');
      memNotePad.Clear;
      memNotePad.Modified := False;
    end
    else if (ModalResult = mrNo) then
    begin
      memNotePad.Clear;
      memNotePad.Modified := False;
    end;
  end;

  FFileName := rzsvdlgSaveDialog.FileName;

  FCount := 1;

end;

{ Save As }

procedure TfrmNotepad.SaveAS;

begin

  rzsvdlgSaveDialog.Title := 'Save As';

  rzsvdlgSaveDialog.Filter := 'Text Files|*.txt; RTF Files|*.rtf';

  if rzsvdlgSaveDialog.Execute then

    memNotepad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');

  memNotePad.Clear;

  memNotePad.Modified := False;

end;

{ Cut text }

procedure TfrmNotepad.Cut;

begin

  memNotePad.CutToClipboard;

end;

{ Copy text }

procedure TfrmNotepad.Copy;

begin

  memNotePad.CopyToClipboard;

end;

{ Paste }


procedure TfrmNotepad.Paste;

begin

  memNotePad.PasteFromClipboard;

end;

{ Font Dialog is assign to memo }

procedure TfrmNotepad.Font;

begin

  if ftdlgFontDialog.Execute then

    memNotePad.Font := ftdlgFontDialog.Font;

end;


{ Save the setting of font in to Ini file }

procedure TfrmNotepad.SaveSettingInToFile;

var

  LColorName : String;

begin

  FIniFile.WriteString('Setting', 'FontName', memNotePad.Font.Name);

  FIniFile.WriteString('Setting', 'FontSize', IntToStr(memNotePad.Font.Size));

  LColorName := ColorToString(memNotePad.Font.Color);

  FIniFile.WriteString('Setting', 'FontColor', LColorName);

end;


{ Retrieve the setting of font from Ini file }

procedure TfrmNotepad.RetrieveSettingFromTheFile;

var

  LFontName, LFontSize, LFontColor: String;

begin

  FIniFile := TIniFile.Create('FontSettings.ini');

  LFontName := FIniFile.ReadString('Setting', 'FontName', 'Arial');

  memNotePad.Font.Name := LFontName;

  LFontSize := FIniFile.ReadString('Setting', 'FontSize', '8');

  memNotePad.Font.Size := StrToInt(LFontSize);

  LFontColor := FIniFile.ReadString('Setting', 'FontColor', 
ColorToString(clBlack));

  memNotePad.Font.Color := StringToColor(LFonTColor);

  ftdlgFontDialog.Font := memNotePad.Font;

end;

procedure TfrmNotepad.mniOpenClick(Sender: TObject);

begin

  OpenDialog;

end;


procedure TfrmNotepad.mniSaveClick(Sender: TObject);

begin

  SaveDialog;

end;


procedure TfrmNotepad.mniNewClick(Sender: TObject);

begin

  NewNotepad;

end;


procedure TfrmNotepad.mniSaveAsClick(Sender: TObject);

begin

  SaveAS;

end;


{ Exit from Notepad }

procedure TfrmNotepad.mniExitClick(Sender: TObject);

begin

  { While exit if the modification in file is not save then then message dialog appear on the screen }

  if (memNotePad.Modified) then

  begin

    ModalResult := MessageDlg('Do you want to save 
Changes',mtConfirmation,mbYesNoCancel,0);

    if (ModalResult = mrYes) then

    begin

      if rzsvdlgSaveDialog.FileName = FFileName then

        memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt')

      else if rzopdlgOpenDialog.FileName = FFileName then

      begin

        rzsvdlgSaveDialog.FileName := rzopdlgOpenDialog.FileName;

        memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName);

      end

      else if rzsvdlgSaveDialog.Execute then

        memNotepad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');

      memNotePad.Clear;

      memNotePad.Modified := False;

      Close;

    end

    else if (ModalResult = mrNo) then

    begin

      memNotePad.Clear;

      memNotePad.Modified := False;

      Close;

    end;

  end;

  { call method for saving the font setting into Ini file }

  SaveSettingInToFile;

end;

procedure TfrmNotepad.mniCutClick(Sender: TObject);

begin

  Cut;

end;


procedure TfrmNotepad.mniCopyClick(Sender: TObject);

begin

  Copy;

end;


procedure TfrmNotepad.mniPasteClick(Sender: TObject);

begin

  Paste;

end;


procedure TfrmNotepad.mniFontClick(Sender: TObject);
begin

  Font;

end;


procedure TfrmNotepad.FormCreate(Sender: TObject);

begin

  FCount := 0;

  FFileName := 'ok';

  { call method for retrieve the font setting from Ini file }

  RetrieveSettingFromTheFile;

end;


procedure TfrmNotepad.FormDestroy(Sender: TObject);

begin

  { call method for saving the font setting into Ini file }

  SaveSettingInToFile;

end;


{ when text is selected on notepad, only then the copy & cut are enabled else disabled }

procedure TfrmNotepad.mniEditClick(Sender: TObject);

begin

  mniCopy.Enabled := memNotePad.SelLength > 0;

  mniCut.Enabled := memNotePad.SelLength > 0;

end;


procedure TfrmNotepad.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

  { While Destroying the form if the modification in file is not save then then
    message dialog appear on the screen }

  rzsvdlgSaveDialog.Filter := 'Text Files|*.txt; RTF Files|*.rtf';

  if (memNotePad.Modified) then

  begin

    ModalResult := MessageDlg('Do you want to save 
Changes',mtConfirmation,mbYesNoCancel,0);
    if (ModalResult = mrYes) then

    begin

      if rzsvdlgSaveDialog.FileName = FFileName then

        memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt')

      else if rzopdlgOpenDialog.FileName = FFileName then

      begin

        rzsvdlgSaveDialog.FileName := rzopdlgOpenDialog.FileName;

        memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName);

      end

      else if rzsvdlgSaveDialog.Execute then

        memNotepad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');

      memNotePad.Clear;

      memNotePad.Modified := False;

    end

    else if (ModalResult = mrNo) then

    begin

      memNotePad.Clear;

      memNotePad.Modified := False;

    end;

  end;

  CanClose := True;

end;


end.

德尔福的记事本问题

4 个答案: