Code: Alles auswählen
procedure TF_Text.FormDropFiles(Sender: TObject;
const FileNames: array of String);
var
intI: integer = 0;
sss : string;
begin
sss := '';
for intI := 0 to high(filenames) do
NMemoText.lines.add(filenames[intI]);
end; Code: Alles auswählen
procedure TF_Text.FormDropFiles(Sender: TObject;
const FileNames: array of String);
var
intI: integer = 0;
sss : string;
A_MemoText: string; //Eine variable für Memo1.Text
Select: Integer; //Position des Selektionsbegins
begin
{$IFDEF WINDOWS}
sss := '';
for intI := 0 to high(filenames) do
sss := sss + (filenames[intI]) + ''#13#10'';
A_MemoText := NMemoText.Text;
Select:=NMemoText.SelStart; //Selektionsbeginn zwischenspeichern
if NMemoText.SelLength>0 then
begin
Delete(A_MemoText, Select+1, NMemoText.SelLength); //Selektiertes löschen
end;
Insert( sss , A_MemoText, Select); //neuen Text einfügen -->> oder Insert(InsertText, MemoText, Select+1); //neuen Text einfügen
NMemoText.Text:=A_MemoText; //Text zurück zu Memo1
NMemoText.SelStart:=Select+length( sss ); //Selektionsbeginn hinter neuem Text wiederherstellen
NMemoText.SelLength:=0; //Selektion auf 0 beschränken
{$ENDIF}
end; 
Code: Alles auswählen
procedure TF_Text.FormDropFiles(Sender: TObject;
const FileNames: array of String);
var
intI , A_Sel_Start : integer; // A_Sel_Start: Integer; //Position des Selektionsbegins
Pfadtext_Windows , A_MemoText : string;
begin
intI := 0;
{$IFDEF WINDOWS}
A_Sel_Start := NMemoText.SelStart; //Selektionsbeginn zwischenspeichern
Pfadtext_Windows := LineEnding + '->'+ LineEnding;
for intI := 0 to high(filenames) do Pfadtext_Windows := Pfadtext_Windows + (filenames[intI]) + LineEnding ;
Pfadtext_Windows := Pfadtext_Windows + '<-' + LineEnding;
A_MemoText := NMemoText.Text;
Insert( Pfadtext_Windows , A_MemoText, A_Sel_Start ); //neuen Text einfügen
NMemoText.Text:=A_MemoText; //Text zurück zu Memo
NMemoText.SelStart:=A_Sel_Start + length( Pfadtext_Windows ); //Selektionsbeginn hinter neuem Text wiederherstellen
NMemoText.SelLength:=0; //Selektion auf 0 beschränken
{$ENDIF}
end;
Code: Alles auswählen
@echo off
if "%1" == "" goto error
c:\sign\signtool.exe sign /f c:\sign\mclcodesign.pfx /p meinpasswort /t http://timestamp.comodoca.com %1
goto end
:error
echo "Fehlender Parameter"
:end
Code: Alles auswählen
c:\windows\system32\cmd.exe /C c:\sign\dosign.bat "$TargetFile()"
Code: Alles auswählen
Function TF_Text.URL_extrahieren ( A_Memo : TMemo ; A_Selstart : integer ) : string; // A_Flag 1:ins Keyword-Blatt 2:in die Suchworte-Liste
var
i, selbeginn , z , k : integer;
txt, s : WideString;
begin
result := '';
txt := UTF8Decode(A_Memo.Text);
selbeginn := A_Selstart;
i := A_Memo.SelStart;
s := '';
repeat
result := s + result;
s := Copy(txt, i, 1);
Dec(i);
until (s <= ' ') or (i < 0);
i := A_Selstart + 1;
s := '';
repeat
result := result + s;
s := Copy(txt, i, 1);
Inc(i);
until (s <= ' ') or (i < 0);
Globl.Wort_putzen( result );
z := Length ( Globl_Prg_Pfad_nur_Pfad + '/MyMemoryDB_Daten') ;
k := Pos('MyMemoryDB_Daten', (result)); // "Pfad bleibt auch nach "Umzug" aufrufbar
if (k > 0) then // Wenn dieser Dateiname im Link vorkommt, dann ist k > 0
begin
result := ( Globl_Prg_Pfad_nur_Pfad + ( copy(result , k , z) ) );
end;
end; Code: Alles auswählen
function TForm1.IsFilename(Sender: TObject) : boolean;
var Line : integer;
s : string;
const boolstr : array[boolean] of string = ('Nein', 'Ja');
begin
Line := Memo1.CaretPos.y;
s := Memo1.Lines[Line];
Result := FileExists(s);
MessageDlg(Format('Existiert die Datei in Zeile %d (%s)? : %s', [Line+1, s, boolstr[Result]]), mtInformation, [mbOk], 0);
end;
Aber so Zertifikate sind doch recht teuer?fliegermichl hat geschrieben: Übrigens ist es eine gute Idee, seine im Internet zum Download angebotenen Programme digital zu signieren. Der Anwender bekommt sonst jedesmal eine Warnung angezeigt, daß er potentiell Schadsoftware startet.
Verein
Links
Suche