AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Die Delphi-IDE Hilfe Virusmeldung bei Delphi XE Trial
Thema durchsuchen
Ansicht
Themen-Optionen

Hilfe Virusmeldung bei Delphi XE Trial

Ein Thema von Willie1 · begonnen am 1. Mär 2011 · letzter Beitrag vom 7. Mär 2011
 
Willie1

Registriert seit: 28. Mai 2008
740 Beiträge
 
Delphi 10.1 Berlin Starter
 
#12

AW: Hilfe Virusmeldung bei Delphi XE Trial

  Alt 1. Mär 2011, 14:39
Delphi-Quellcode:
function OpenSaveFileDialog(ParentHandle: THandle; fFlags: Integer; const DefExt, Filter, InitialDir,
                            Title: string; var FileName: string;
                            out ReadOnly: Boolean; IsOpenDialog: Boolean): Boolean; overload;
var
  ofn: TOpenFileName;
// szFile: array[0..MAX_PATH] of Char;
  szFileN: PAnsiChar;
// fi: string;
begin
// GetMem(szFileN,MAX_PATH);
  Result := False;
  FillChar(ofn, SizeOf(TOpenFileName), 0);
  with ofn do
  begin
    lStructSize := SizeOf(TOpenFileName);
    hwndOwner := ParentHandle;
    lpstrFile := szFileN;
    nMaxFile := SizeOf(szFileN);
    if (Title <> '') then begin
      lpstrTitle := PAnsiChar(AnsiString(Title));
    end;
    flags := fFlags;
    if (InitialDir <> '') then
      lpstrInitialDir := PAnsiChar(AnsiString(InitialDir));
// StrPCopy(lpstrFile, FileName);
// lpstrFile
// fi := PAnsiChar(FileName);
// lpstrFilter :='Alle|*.*'#0#0;
    lpstrFilter := PAnsiChar(AnsiString(CharReplace(Filter, '|', #0) + #0#0));
    if DefExt <> 'then
      lpstrDefExt := PAnsiChar(DefExt);
    lpfnHook := nil;
  end;
  if IsOpenDialog then
  begin
    if GetOpenFileName(ofn) then
    begin
      Result := True;
      ReadOnly := ofn.Flags and OFN_READONLY = OFN_READONLY;
      FileName := string(AnsiString(szFileN));
    end;
  end
  else
  begin
    if GetSaveFileName(ofn) then
    begin
      Result := True;
      FileName := string(AnsiString(szFileN));
    end;
  end
end;
Hiermit war ich beschäftigt. Ich will keinen Gutenberg machen Orginalquelle: Aus der Tippsammlung SwissDelphi Center Mit D-2005/6 unter Vista lief es prima, für D-XE muss es angepasst werden, und da war ich dran, als Norton zuschlug. Was soll ich machen?

Der Virenwächter "Sonar" von Norton meldet "Das Programm xy verhält sich verdächtig und wird geblockt." Genauere Erklärungen keine.


Willie.

Geändert von Willie1 ( 1. Mär 2011 um 14:50 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz