» Poradna » Programy

Delphi

 |   | 

Jak spustím v kódu nějakou externí aplikaci?
Jakou metodou smazat obsah komponenty StringGrid?
Díky moc za odpověď!

Odpovědi na otázku

 |   | 

Tak pro to spusteni ext. aplikace bych ti doporucil funkci winAPI (tzn. musis pridat do uses ShellAPI), napisu ti funkci, ktera to udela...
FileName - nazev souboru (i s cestou)
Params - parametry aplikace
DefaultDir - defaultni adresar, ve kterem se ma aplikace spoustet
ShowCmd - parametr typu zobrazeni (nejcasteji budes pouzivat SW_SHOW, jinak se mrkni do help WinAPI)
function ExecuteFile(const FileName, Params, DefaultDir: string;
  ShowCmd: Integer): THandle;
var
  zFileName, zParams, zDir: array[0..79] of Char;
begin
  Result := ShellExecute(Application.MainForm.Handle, nil, StrPCopy(zFileName, FileName), StrPCopy(zParams, Params), StrPCopy(zDir, DefaultDir), ShowCmd);
end;
 
A ten StringGrid? Myslim, ze na to funkce neni, ale neni problem si ji napsat. :o)
for i := 0 to StringGrid1.RowCount do
 for j := 0 to StringGrid1.ColCount do
  StringGrid1.Cells[j,i] := ''; // nejsem si jisty, co je v cells prvni, jestli sloupec nebo radek, vyzkousej, kdyztak i a j otoc
Pisu to z fleku, tak se omlouvam, jestli to nepujde...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

K predani parametru jako PChar jej nepotrebujes prohanet bufferem, staci pouzit pretypovani:

ShellExecute(Application.MainForm.Handle, 'Open', PChar(FileName), PChar(Params), PChar(DefaultDir), SW_SHOWNORMAL);

Pokud nejaky parametr nevyplnujes, predej jej jako nil.

Co se tyka StringGridu, tak jeho radky a sloupce jsou typu TStrings, takze bud v cyklu projdes radky nebo sloupce a pouzijes Rows[index].Clear

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

V Delphi existuje v unitě "Windows" funkce "WinExec" na spouštění externích programů.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

jen pozor sam Microsoft ji nedoporucuje pouzivat pro win32 aplikace. Pravdepobodne je zachovana z duvodu zpetne kompatibility. Alespon v helpu to oni pisou, takze pozor na neprijmna prekvapeni v budoucnu.
d.

Souhlasím  |  Nesouhlasím  |  Odpovědět




Určitě si přečtěte

Vylaďte si Wi-Fi: Podívejte se, jaká pásma máte doma volná a kam signál nedosáhne

Vylaďte si Wi-Fi: Podívejte se, jaká pásma máte doma volná a kam signál nedosáhne

** Prozkoumejte, jaké pásmo je pro vaši síť nejlepší ** Díky heat mapě snadno poznáte, kde to bude se signálem horší ** Vše zvládnete i z mobilního telefonu

Vladislav Kluska | 36

Nový iPhone a další novinky Applu: sledujte, na co se zase budou stát fronty

Nový iPhone a další novinky Applu: sledujte, na co se zase budou stát fronty

** Apple dnes představuje nové produkty v čele s novými iPhony ** Nemusí zůstat jen u telefonů, čekají se i další novinky ** Úvodní přednáška začíná v 19:00 našeho času

David Polesný | 57

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

** Pornografie údajně představuje třetinu internetové obsahu a je technologický tahounem ** Do erotického obsahu postupně zasahuje i virtuální realita ** Kromě vizuálního vjemu se pracuje také na virtuálním uspokojení toho hmatového

Jan Dudek | 29

Tohle tak jednou zažít: Nová vzducholoď Airlander 10 s prosklenou podlahou

Tohle tak jednou zažít: Nová vzducholoď Airlander 10 s prosklenou podlahou

** Airlander 10 nabídne plavby vzduchem v interiéru s prosklenou podlahou ** Luxusní vzducholoď byla původně vyvíjena pro vojenské účely ** Počítá se s třídenními „kochacími“ výlety za poznáním

Karel Kilián | 7

Inteligentní akvárium Bluenero se o rybičky postará samo

Inteligentní akvárium Bluenero se o rybičky postará samo

** Chcete chovat akvarijní rybičky, ale nemáte čas se o ně starat? ** Chytré akvárium je samo nakrmí a postará se o jejich komfort ** Projekt Bluenero zatím sbírá finance na Indiegogo

Karel Kilián | 20

Jak horko bude ve vašem městě, až vám bude 80 let? Podívejte se, jak se projeví klimatické změny!

Jak horko bude ve vašem městě, až vám bude 80 let? Podívejte se, jak se projeví klimatické změny!

** Srpen byl třetí nejteplejší za posledních více než sto let ** Bude to ale daleko horší, jak ukazuje aplikace NYT ** V Praze vzroste počet horkých dní na čtyřnásobek

Karel Kilián | 21


Aktuální číslo časopisu Computer

Jak vytvořit a spravovat vlastní web

Velký test herních klávesnic a DVB-T2 tunerů

Vše o formátu RAW

Vybíráme nejlepší základní desku