Forum: Object-Pascal / Delphi-Language
Delphi
by lbccaleb,
8. Jan 2007
versuchs mal damit:
procedure TForm1.Button1Click(Sender: TObject);
var
output, errors: TStringList;
begin
output := TStringList.Create;
try
Forum: Object-Pascal / Delphi-Language
Delphi
by lbccaleb,
8. Jan 2007
du könntest so eine zeile aus einem memo in ein label einlesen:
label1.Caption := memo1.Lines.Strings;
wobei die 4 die zeile im memo ist, die du auslesen möchtest...
Forum: Object-Pascal / Delphi-Language
Delphi
by lbccaleb,
7. Jan 2007
ja ich wusste ja bisher nicht genau was du vorhast, jetzt wo du den screener gepostet hast kann ich dir schon mal sagen das "model" in dieser art dadrinne schon mal blödsinn ist, denn das prog erkennt diesen parameter so nicht, versuchs einfach mal ohne also so:
"scip.exe xy.mod"
dann kannst ja noch mal schreiben..
Forum: Object-Pascal / Delphi-Language
Delphi
by lbccaleb,
7. Jan 2007
sorry muss dir leider sagen nee würds nicht, denn wenn man die var als char deklariert, kann man danach ihr keinen string zuweisen, das sind inkompatible komponenten! ausserdem würde in der prozedure shellexecute dadurch gleich 2 fehler entstehen, zumeinen weil der string 'model test.mod' weiterhinn besteht und zum anderen würde es glaub ich auch noch ne meldung geben das char und pchar...
Forum: Object-Pascal / Delphi-Language
Delphi
by lbccaleb,
7. Jan 2007
ja das wären dann in dem fall wie ich oben beschrieben hab die parameter was ich meinte....
das wäre mit der funktion dann so:
WinExecAndWait_32('c:\path\bla.exe model testy.mod', 1, False);
Forum: Object-Pascal / Delphi-Language
Delphi
by lbccaleb,
7. Jan 2007
also den bsp mit dem parameter hab ich nur mal mit gepostet damit auch klar wird wie ein programm mit parametern über diese function gestartet wird, das brauchst du bei dir nicht mit eingeben wenn du keine parameter hast, desweiteren musst du natürlich die sin.exe durch dein programm austauschen, wie meinst du das mit von delphi eingeben lassen und es soll immer das selbe tun??
Forum: Object-Pascal / Delphi-Language
Delphi
by lbccaleb,
7. Jan 2007
function WinExecAndWait_32(FileName: string; Visibility: Integer; bWait: Boolean = False): Longword;
var { by Pat Ritchey }
zAppName: array of Char;
zCurDir: array of Char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);