140 lines
5.0 KiB
ObjectPascal
140 lines
5.0 KiB
ObjectPascal
{**************************************************************************************************}
|
|
{ }
|
|
{ Project JEDI Code Library (JCL) - Delphi Tools }
|
|
{ }
|
|
{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); }
|
|
{ you may not use this file except in compliance with the License. You may obtain a copy of the }
|
|
{ License at http://www.mozilla.org/MPL/ }
|
|
{ }
|
|
{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF }
|
|
{ ANY KIND, either express or implied. See the License for the specific language governing rights }
|
|
{ and limitations under the License. }
|
|
{ }
|
|
{ The Original Code is Global.pas. }
|
|
{ }
|
|
{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are }
|
|
{ Copyright (C) of Petr Vones. All Rights Reserved. }
|
|
{ }
|
|
{ Contributor(s): }
|
|
{ }
|
|
{**************************************************************************************************}
|
|
{ }
|
|
{ Last modified: $Date: 2005/10/27 01:44:51 $ }
|
|
{ }
|
|
{**************************************************************************************************}
|
|
|
|
unit Global;
|
|
|
|
{$I JCL.INC}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
ComCtrls, ImgList;
|
|
|
|
type
|
|
TGlobalModule = class(TDataModule)
|
|
ToolbarImagesList: TImageList;
|
|
SaveDialog: TSaveDialog;
|
|
procedure DataModuleCreate(Sender: TObject);
|
|
private
|
|
FPeViewer: Variant;
|
|
FPeViewerRegistred: Boolean;
|
|
public
|
|
function ExecuteSaveDialog(var FileName: TFileName): Boolean;
|
|
procedure ListViewToClipboard(ListView: TListView);
|
|
procedure ListViewToFile(ListView: TListView; const FileName: TFileName);
|
|
procedure ViewPE(const FileName: TFileName);
|
|
property PeViewerRegistred: Boolean read FPeViewerRegistred;
|
|
end;
|
|
|
|
var
|
|
GlobalModule: TGlobalModule;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
uses
|
|
ClipBrd, ToolsUtils, JclSysInfo;
|
|
|
|
resourcestring
|
|
sWrongWindowsVersion = 'This application is intended for Windows 95/98/2000 only';
|
|
|
|
procedure CheckWindowsVersion;
|
|
begin
|
|
if IsWinNT4 then
|
|
begin
|
|
MessageBox(0, PChar(sWrongWindowsVersion), nil, MB_OK or MB_ICONERROR);
|
|
Halt(0);
|
|
end;
|
|
end;
|
|
|
|
{ TGlobalModule }
|
|
|
|
procedure TGlobalModule.ListViewToClipboard(ListView: TListView);
|
|
var
|
|
S: TStringList;
|
|
begin
|
|
S := TStringList.Create;
|
|
Screen.Cursor := crHourGlass;
|
|
try
|
|
ListViewToStrings(ListView, S, ListView.MultiSelect);
|
|
Clipboard.AsText := S.Text;
|
|
finally
|
|
S.Free;
|
|
Screen.Cursor := crDefault;
|
|
end;
|
|
end;
|
|
|
|
procedure TGlobalModule.ListViewToFile(ListView: TListView; const FileName: TFileName);
|
|
var
|
|
S: TStringList;
|
|
begin
|
|
SaveDialog.FileName := ChangeFileExt(FileName, '');
|
|
if SaveDialog.Execute then
|
|
begin
|
|
S := TStringList.Create;
|
|
Screen.Cursor := crHourGlass;
|
|
try
|
|
ListViewToStrings(ListView, S, ListView.MultiSelect);
|
|
S.SaveToFile(SaveDialog.FileName);
|
|
finally
|
|
S.Free;
|
|
Screen.Cursor := crDefault;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TGlobalModule.ExecuteSaveDialog(var FileName: TFileName): Boolean;
|
|
begin
|
|
SaveDialog.FileName := ChangeFileExt(FileName, '');
|
|
Result := SaveDialog.Execute;
|
|
if Result then FileName := SaveDialog.FileName;
|
|
end;
|
|
|
|
procedure TGlobalModule.DataModuleCreate(Sender: TObject);
|
|
begin
|
|
FPeViewerRegistred := IsPeViewerRegistred;
|
|
end;
|
|
|
|
procedure TGlobalModule.ViewPE(const FileName: TFileName);
|
|
begin
|
|
FPeViewer := CreateOrGetOleObject(PeViewerClassName);
|
|
FPeViewer.OpenFile(FileName);
|
|
FPeViewer.BringToFront;
|
|
end;
|
|
|
|
initialization
|
|
CheckWindowsVersion;
|
|
|
|
// History:
|
|
|
|
// $Log: Global.pas,v $
|
|
// Revision 1.2 2005/10/27 01:44:51 rrossmair
|
|
// - added MPL headers and CVS Log tags
|
|
//
|
|
|
|
end.
|