Pchar Pansichar was auch immer zum string bitte :((((((((
hallo Leute,
mein Herz zerreißt hab n puls von 250
ich versteh das einfach net :
procedure URLlForm.TimerTimer(Sender: TObject);
var URL: PAnsichar;
begin
URL:=PAnsichar(Edit.text);
ShellExecute(handle,'open',''+URL+'',nil,nil,SW_ShowNormal);
end;
ES funktrioniert net @ delphi 7
Rettet mir das leben
mfg
f4r
mein Herz zerreißt hab n puls von 250
ich versteh das einfach net :
procedure URLlForm.TimerTimer(Sender: TObject);
var URL: PAnsichar;
begin
URL:=PAnsichar(Edit.text);
ShellExecute(handle,'open',''+URL+'',nil,nil,SW_ShowNormal);
end;
ES funktrioniert net @ delphi 7
Rettet mir das leben
mfg
f4r
Für die, die es noch nicht kennen. Das Alphabet: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »FIGHT4RIGHTS« (14. Oktober 2005, 09:06)
RE: Pchar Pansichar was auch immer zum string bitte :((((((((
Willst du an die URL noch irgendwas anhängen oder wozu das ''+URL+'' ? Jedenfalls klappt es dann so:
|
|
Quellcode |
1 2 3 4 5 6 |
procedure TForm1.FormCreate(Sender: TObject);
var URL: PAnsichar;
begin
URL:=PAnsichar(Edit1.text);
ShellExecute(handle,'open',PChar(''+URL+''),nil,nil,SW_ShowNormal);
end;
|
Wird (wahrscheinlich) Japan oder (noch viel wahrscheinlicher) die gesamte Menschheit retten
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »K1nt4ro« (14. Oktober 2005, 11:11)


